SN 63 


ENGINEERING AND PROGRAMMING 

MANUAL 


TWO-DIMENSIONAL KINETIC 
f nas a r u ,7o^o REFERENCE COMPUTER program 

fria 

H«po?t"rsoft 0flttn£E » M IIC 

.W£-«wsr^ G3/6 


TDK 


N86- 1 6 S 4 0 


Unclas 

03664 


Final Report 

Contract No. NAS8-35931 

April 1985 
By: G. R. Nickerson 
L. D. Dang 
D. E. Coats 

Prepared For 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, Al. 35812 


Software And Engineering Associates, Inc. 
1050 East William Street, Suite 402 
Carson City, Nevada 89701 



engineering and programming 


MANUA L 


two-dimensional kinetic 

REFERENCE COMPUTER PROGRAM 


TDK 


Final Report 

Contract No. NAS8-35931 

April 1985 
By: G. R. Nickerson 
L. D. Dang 
D. E. Coats 

Prepared For 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, Al. 35812 


Software And Engineering Associates, Inc. 
1050 East William Street, Suite 402 
Carson City, Nevada 89701 




FOREWORD 


This report contains an engineering and programming 
description for the revised April/85 version of the 
Two-Dimensional Kinetic Thrust Chamber Analysis Computer 
Program, TDK, developed. by Software and Engineering Associates, 
Inc., Carson City, Nevada. Revision of the TDK Computer Program 
was performed under Contract Numbers NAS8-34974, NAS8-35046, and 
NAS8-35931 . The work performed was monitored by Mr. Klaus 
Gross and Mr. A. Krebsbach of the NASA George C. Marshall Space 
Flight Center, Huntsville, Alabama. 

The TDK Computer Program consists of the following 
computational modules: 


MCM 

ODE 

ODK 

TRANS 

MOC 

BLM 


Master Control Module 

One-Dimensional Equilibrium Nozzle Analysis 
Module 

One-Dimensional Kinetic Nozzle Analysis 
Module 

Transonic Analysis Module 

Method of Characteristics Module for 
Equilibrium, Kinetic, or Frozen Nozzle Flow 
Boundary Layer Module 


The reference procedure which utilizes the above computer 
programs is given in the J ANN AF Rocket Engine Performance 
Prediction and Calculation Manual, CPIA246, Reference 1. 
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a Nozzle area ratio, also reaction rate parameter 
Gram atoms of the k 1 * 1 element In the l** 1 species 

A Adiabatic heat addition term linking fluid dynamic 

and relaxation processes, also total mass reactant in ODE 

b Reaction rate parameter 

B Energy exchange term linking fluid dynamic and 
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c Species mass fraction 
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Cp Frozen heat capacity 

Cp e Equilibrium heat capacity 

C* Characteristic exhaust velocity 

Heat capacity per mole of I** 1 species/fa 

f Derivative 

F Free energy, also function defined by Equation (2.5-5) 

Free energy per mole of i** 1 species/R 


G Function defined by Equation (2.5-6) 

h Enthalpy, also Integration Increment 

H Total enthalpy, also function defined by Equation (2.5-7) 

AHp Heat of formation 

t h 
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l c _ Specific impulse 

k Variable increment, also reaction rate parameter 

K Equilibrium constant 
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M Mach number, also third body reaction term 
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1 . INTRODUCTION 


The Two-Dimensional Kinetics (TDK) computer program is a 
primary tool in applying the JANNAF liquid rocket thrust chamber 
performance prediction methodology, 1 This computer program and 
the performance prediction methodology were originally developed 
under the auspices of the Performance Standardi zat ion 
Subcommittee (PSS) of the JANNAF, The goal of the PSS is the 
development of a methodology that includes all aspects of rocket 
engine performance from analytical calculation to test 
measurements, that is physically accurate and consistent, and 
that serves as an industry and government reference. 

Recent interest in rocket engines that operate at high 
expansion ratio, such as most Orbit Transfer Vehicle (OTV) 
engine designs, has required an extension of the analytical 
methods used by the TDK computer program. Thus, the version of 
TDK that is described in this manual is in many respects 
different from the 1973 version of the program that is described 
in Reference 2. Although much material from the 1973 document 
is included in this manual, other material is entirely new. 
This new material reflects the new capabilities of the TDK 
computer program, the most important of which are described 
below , 


Ref. 2: Nickerson, G. R., Coats, D . E . , and Bartz, J. L . , "The 

Two-Dimensional Kinetic (TDK) Reference Computer 
Program”, Engineering and Programming Manual, 
Ultrasystems, Inc., December 1973. prepared for 
Contract No. NAS9-12652, NASA JSC. 
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a) A Boundary Layer Module ( BLM ) has been included within 
the TDK program. The BLM can be used to automatically 
calculate the wall boundary layer after execution of 
the Method of C har ac t er i s t i cs (MOC). The resulting 
wall displacement and the heat transferred through the 
wall are computed. The ODE-ODK-TRANS-MOC series of 
calculations can then be automatically repeated with 
the appropriate parameters (wall contour and propellant 
enthalpy) updated. This feature allows the "rigorous 
analytical procedure” of the JANNAF rocket engine 
performance prediction methodology 1 to be carried out 
with a single computer run for a r ege ner at i ve 1 y cooled 
engine . 

b) The ODE module of TDK has been modified so that it will 
compute transport properties for the nozzle exhaust 
composition. This information is required by the BLM. 

c) The ODE module of TDK has been modified so that it will 
provide tables of gas properties versus temperature for 
the stream tube mixture ratio adjacent to the nozzle 
wall. This information is required by the BLM. 

d) New nozzle wall geometry options have been added to the 
pr ogr am . 

e) The ODK and MOC modules can contain condensed phases 
that are in thermal and velocity equilibrium with the 
gas . 

f) The transonic flow module (TRANS) has been modified to 
analyze flow with variable mixture ratio. 
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g) The MOC module has been rewritten to allow for the 
presence of a shock wave in the flow. The shock can be 
either attached to the nozzle wall, or induced by the 
nozzle wall curvature. Regular reflections from the 
nozzle axis and the nozzle wall can be computed. The 
shock option can be used for flows with gas properties 
along streamlines that are either: 

1 ) constant , 

2) chemically frozen (i.e., fixed composition, but 
properties varying with t emperat ure ) , or 

3) governed by finite rate kinetics. 

^ ) The thermodynamic data and kinetic rate data (see 
Appendix A) for the program have been updated. 


The TDK Computer Program is designed for engineering use and 
is specified and programmed in a straight forward manner to 
facilitate its application. The FORTRAN IV programming language 
has been used in an attempt to make the computer program as 
machine independent as possible. A complete engineering and 
programming description of the TDK Computer Program is contained 
in this report. 

Section 2 of this report contains a description of the 
methods of analysis used in the computer program. 

Section 3 contains a description of the numerical rethods 
used to integrate the fluid dynamic and chemical reluxation 
equations in the computer program. 
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Section M contains a description of the program structure. 


Section 5 contains a detailed engineering and programming 
description of the program subroutines. 

Section 6 contains a program user's manual describing the 
use of the computer program with an explanation of the program 
input and output. 

Section 7 contains input and output for a sample case using 
the TDK option of the program. 

Section 8 contains a discussion of program usage and error 
diagnost ics . 


1-U 
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ANALYSIS 


2 . 


The TDK Computer Program has been written for the purpose of 
evaluating two-dimensional effects on the performance of liquid 
propellant exhaust nozzles. An important feature of the TDK 
program is its ability to consider nonequilibrium chemical 
processes. The basic method of analysis used by TDK is the 
method of character i st ics . The program constructs a 
finite-difference mesh by tracing gas streamlines and 
characteristic surfaces. The mesh points are located at the 
intersections of these surfaces. Systems of large size can be 
considered by the program as is indicated by Table 2-1 which 
gives maximum dimensions for the program. 

The method of characteristics calculation is capable of 
considering either continuous mixture ratio variation, or flow 
striations. Striated regions are separated by slipline 
conditions, i.e., adjacent streamlines with matched pressure and 
gas streamline angle, but at different mixture ratio, 
temperature, etc. Mixing between striated zones, is not 
considered. The initial data line required to start the method 
of char a c t er i s t i c s is calculated using a transonic analysis 
provided for this purpose. The characteristic equations 
governing the fluid dynamic variables are integrated using a 
second order (modified Euler) explicit integration method while 
the chemical relaxation equations are integrated using a first 
order implicit integration method to insure numerical stability 
in near equilibrium flows. 

In order to start the method of characteristics calculation, 
it is necessary to approximate an initial data line across the 
nozzle throat. This initial data line must be supersonic and 
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TABLE 2-1 MAXIMUM DIMENSIONS FOR TDK 


Number of defined elements provided 

1 02 

Number of possible species per case 

40 

Number of species in the Master Thermodynamic Data File 

1 000 

Number of possible reactions 

150 

Number of possible reactions with implied third body 

50 

Number of reactants per reaction 

1 0 

Number of products per reaction 

1 0 

Maximum stoichiometric coefficient total 

600 

Number of possible third body efficiencies to be considered 

2000 

Maximum number of streamlines (i.e. mesh points per left 

275 

running characteristic) 


Maximum number of zones (i.e. striations) 

50 


must be compatible with the mesh construction methods used by 
TDK. The calculations performed by TDK to generate this initial 
data line are carried out in two stages. First chemical 
information is computed by use of the ODK module as described in 
Section 2.1. Chemical and fluid properties, obtained from this 
calculation are retained in the form of tables. The second 
stage of the calculation makes use of this information and 
employs a perturbation method to estimate two dimensional 
effects in the transonic region of the nozzle throat. Variable 
mixture ratio flows and striated flows are treated by means of a 
straight forward extension of the procedure described above. 

The description given above is shown schematically in Figure 
2-la. The TDK Computer Program is divided into modules as shown 
in the figure. The modules are illustrated in the master flow 
chart presented in Figure 2-lb. For a description of the 
analysis used by ODE, Reference 3 should be used. 
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Figure 2-la. Schematic for TDK Analysis 
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Figure 2-lb. Master Flow Chart for TDK 
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In Section 2.1 of this report the analysis for the ODK 
computer program is given. In Section 2.2 a discussion of the 
finite rate chemistry used by both ODK and TDK is presented. In 
Section 2.3 the conservation equations governing two dimensional 
axisymme trie inviscid flow are presented. In Section 2 . *4 the 
transonic flow method used to construct an initial data line for 
the method of character i st ics solution is presented. The method 
of char acter i st ics relations are presented in Section 2.5. The 
boundary layer solution is presented in Section 2.6. 

PERFORMANCE PREDICTION METHODOLOGY 


The JANNAF thrust chamber performance prediction methodology 
is defined in Reference 1. In this methodology the predicted 

1 

delivery specific impulse for the thrust chamber can be 
expressed as: 


sp de 1 i v 


n DER 


SP TDK ' 


AF 


BLM 


/ M 


TDK 


The factor n in the above expression represents the 
D E R 

distributed energy release of the combustion process. The terms 


I 

sp 

TDK ' 


B , , and AF 0LM represent the values predicted by 


TDK for nozzle specific impulse and mass flow, and by the BLM 
for boundary layer thrust deficit. The prime denotes that these 
quantities have been corrected using the Prandtl procedure. 
Thus, a second TDK calculation has been made with the nozzle 
wall displaced inwards a distance equal to the boundary layer 
displacement thickness. Also, in this calculation the heat 
picked up by the regen cooling circuits has been returned to the 
thrust chamber as increased propellant enthalpy. Care is taken 
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in the procedure to assure that a complete energy balance is 
maintained. 


The boundary layer thrust deficit is evaluated by 
integrating across the boundary layer at the nozzle exit for 
momentum thickness, 0 , and displacement thickness, <5*, and 
applying the results as follows: 


BLM 


2 it r cos a p U 0„, w 
e e e e BLM 


- 2,r 0 cos a e <P e - P BLH ) J BLM 


The first term in the above expression represents the 
momentum deficit in the boundary layer and includes the effects 
of wall skin friction and heat transfer. The second term 
represents the pressure force acting on the annular portion of 
the nozzle exit plane that is between the real wall and the 
invisid edge of the boundary layer. The quantities r g , p g , P , 
and U g , are boundary layer edge properties obtained from the 
second TDK calculation. 


850105 


2-5 



2.1 ANALYSIS FOR THE 0DK COMPUTER PROGRAM 


The One Dimensional Kinetic nozzle analysis computer program (0DK) 
described in this section has been developed for'' performing reference liquid 
propellant thrust chamber performance calculations. The ODK computer program 
calculates the inviscid one dimensional equilibrium, frozen and nonequilibrium 
nozzle expansion of gaseous propellant exhaust mixtures. The 0DK program is 
also used as a subprogram by TDK. The 0 DE computer program, which is de- 
scribed in Reference 3, is used to perform the equilibrium composition computations 
The 0DE program computations are based on the assumption that species com- 
positions at any pressure and enthalpy point will be distributed such that the 
free energy of the system is minimized. Solid and liquid phases can be included 
in 0DE computations, and to a certain extent in the 0DK and TDK computations . 

The ODK one dimensional nonequilibrium calculation is performed be- 
ginning at the converging section of the nozzle and ending at an axial station 
located beyond the throat plane. In this calculation pressure defined relations 
are used to integrate the differential equations for a one dimensional streamtube 
until the flow becomes supersonic. This pressure profile is obtained by computing 
an average value of expansion coefficient based on a chemical equilibrium gas 
composition at the nozzle chamber and throat. These parameters are supplied 
automatically by ODE. Pressure and its axial derivative are then obtained for the 
exact prescribed inlet geometry from the relations for isentropic expansion. Once 
the pressure profile has been determined the one dimensional nonequilibrium flow 
relations are integrated starting with an equilibrium calculation obtained at the 
thrust chamber contraction ratio. The advantage of using the pressure defined 
boundary condition is that the differential equations are not singular at Mach one 
so that no difficulties are encountered when integrating through the nozzle throat 
region. The throat (minimum area) occurs when the product of density and velocity 
maximizes and thus determines the mass flux corresponding to the choke flow con- 
dition. Using this mass flux, the nozzle area profile can then be determined. 
Experience has shown good agreement between this area profile and the original 
input geometry. Once supersonic conditions are reached the program automatically 
changes over to area defined differential equations. 



2.1.1 Conservation Equations for One Dimensional Kinetic Expansions 

The conservation equations governing the inviscid one dimensional flow 

4 

of reacting gas mixtures have been given by Hirschfelder, Curtiss and Byrd, 
Penner ^ and others. The basic assumptions made in the derivation of these 
equations are: 


o There are no mass or energy losses from the system 
o The gas is inviscid 

o Each component of the gas is a perfect gas 

o The internal degrees of freedom (translational, rotational and 
vibrational) of each component of the gas are in equilibrium. 

The conservation equations are presented here in the form used in the present 
analysis. 

For each component of the gas the continuity equation is 


_d_ 

dx 


(Pj Va) = Wi r*5 


where the axial coordinate (x) has been normalized with the throat radius. Summing 
over all components of the mixture, the overall continuity equation is obtained 

$r<e vs > 

Combining the above two equations gives 

dc i 

dx p V 


The momentum equation is 


0 V = 0 


dx 


dx 
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The energy equation is 



where 


h = £ c,h. 
i=l 1 1 


and 



C .dT 
Pi 


+ h 


io 


For each component of the gas, the equation of state is 


Pl = Pi R, T 

Summing over all components of the mixture, the overall equation of state 
Is obtained 


P = P RT 

where 


R=£ c.R. 

1=1 1 1 

Since the expansion through a nozzle can be specified either by the expansion 
process or by the nozzle geometry, two forms of the above equations are of interest. 

If the expansion process is specified and the pressure is known as a 
function of distance through the nozzle, the above equations become 



dV 1 dp 

dx “ ‘ pV dx 

if = [vf If ■ A ] p 
If * [*ir p sr - B ] T 

while if the nozzle geometry is specified, the above equations become 

dc. ui.r# 

d5T s Jv~ 
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p . pRT 


where 


A 





i 





w.h. 

x x 


M 


V 

V^RT 


V = £ Tr 
p 


and 


C * I 

n . m 


i=i 


e.C 
x pi 


The first set of equations is completely specified at the sonic point 
while the second set of equations is singular. Thus. If the expansion through 
the nozzle is specified by the pressure distribution, the equations goyermng the 
expansion can be directly Integrated through the sonic point without mathematics 

difficulty. 
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The expansion from the chamber through the sonic point is specified by the 
pressure distribution in the present program in order to eliminate numerical 
difficulties at the sonic point. In the expansion section downstream of the 
sonic point, however, the area variation is specified and the second set of 
equations is integrated through the supersonic expansion section. 

In specifying the nozzle pressure distribution from the chamber through 
the sonic point, rather than the known area distribution, a question naturally 
arises regarding how accurately the calculation represents the flow through a 
specified nozzle geometry. It has been shown by Bray ^ and others that the 
pressure distribution through a nozzle is essentially identical with the equili- 
brium pressure distribution up to the freeze point which generally occurs down- 
stream of the throat (or sonic point). Thus, the difference in the expansion and 
predicted performance caused by utilizing the equilibrium pressure distribution 
rather than the nozzle geometry to specify the expansion from the chamber to the 
sonic point is negligible. If a case does arise in which the equilibrium pressure 
distribution is not an adequate representation of the expansion, the pressure 
distribution can be iterated to obtain the correct pressure distribution. Experience 
hfl s shown thr^t this is r^r0ly if 0 v 0 r rocjuirsd* 

In the above analysis the chemistry is brought into the conservation 
equations through the net species production rates, o^. The analysis pertaining 
to the chemistry is given in the following section. 
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2.2 CHEMISTRY 


The method by which the net species production rate, required by the 
preceeding analysis is determined is described below. 

A chemical reaction can be written in terms of its stoichiometric 
coefficients and i/ 1 ^) as 


i?i “'ll M ‘ ? i5i v » M * 

where M. represents the 1 th chemical species name and 1 represents the 

. I ^ 


t h 

j reaction 


Given a system of chemical reactions, the net species production 

rate to, for each species (component) is calculated from 

1 


“1 = "w, » 


2T v LS 

l= 1 u 


(^4 ~ Vy) X j 


ij 


where 


- V, 


x , “t K j °i 




( 2 . 2 - 1 ) 


The reaction rate, k,, Is from right to left (reverse) In the above 
equation and is represented by the Arrhenius form 


where 


k j a J T 


-n. (-b./Wt) 

1 e 1 


a. 


n. 


’J 


is the pre-exponential coefficient 

is the temperature dependence of the 
pre— exponential factor 

is the activation energy 


The term M is provided so that the reaction rate can be modified for reactions 
involving a third body, i.e. 


M . = £ m. . c. 
J 1=1 J' 1 

= 1 


for reactions requiring a third body 
for all other reactions 


where the constants m^ ^ are specified, and 

c l = Cj/MWj 
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The integer, Xj, is determined for a given reaction from the stoichometric 
coefficients 


(v 'u * V 


The equilibrium constant, K^, is* 


where 


K ^ = e “ A F /ftT ( RT ) 


AF = E t v,, -E t v \ 

1=1 1 1J 1=1 1 1J 


Reactions involving a third body have a distinct reaction rate for 
each particular third body, so that the net production rate should be calculated 
from 


E ("k, * eVpV 

k=l J i=l 1 i=l 1 

m m 


*k 


( 2 . 2 - 2 ) 


* » 

rather than Equation (2.2-1). Benson and Fueno ^ have shown theoretically that 
the temperature dependence of recombination rates is approximately independent 
of the third body. Available experimental recombination rate data also indicates 
that the temperature dependence of recombination rates is independent of the 
third body within the experimental accuracy of the measurements. Assuming that 
the temperature dependence of recombination rates is Independent of the third 
body, the recombination rate associated with the k species (third body) can be 
represented as 

-n. (-b./RT) 


k,_. — a, tT 


‘j 


T 


kj °k T 
i constan 

Equation (2.2-2) it can be shown that 


(2.2-3) 


where only the constant a^j is different for different species (third bodies). From 


S * f*. - c/0» «^1 £ a,, 
j [ J i=l i= 1 J k= 1 J 

■[ 


-n. -b/RT 
— T J A J 
C k T « 


_ r ij *J _ *ij 
K, ir c, J - p » c. 

J 1*1 1 i*l 1 


a.. 

y — c • 

l&l a kj l J 


-n. -b./RT 

a. . T 3 e J 
kj 


^ is also the ratio of the forward to reverse reaction rates. 



Thus the recombination rates associated with each third body can be considered 
as in Equation (2.2-1) by calculating the genoral third body term (M ) as 

Z 

i*l 


M 


J 


m j,i c i 


where m. . is the ratio — J — of the recombination rate associated with the 

' k < * 

i species (third body) to the recombination rate associated with the k th species 
(third body) which is the reference species (third body) whose rate in the form 
of Equation (2.2-3) is specified in the program input. 


Chemical kinetic rate data is discussed in Appendix A. 



2.3 CONSERVATION EQUATIONS FOR TWO DIMENSIONAL KINETIC EXPANSIONS 


The conservation equations governing the axisymmetric inviscid flow 

ij 

of reacting gas mixtures have been given by Hi rschfelder, Curtiss and Bird 
Penner and others. The basic assumptions made in the derivation of these 
equations are: 

o There are no mass or energy losses from the system 
o The gas is inviscid 

o Each component of the gas is a perfect gas 

o The internal degrees of freedom (translational, rotational, 
and vibrational) of each component of the gas are in equili- 
brium. 


The conservation equations are presented here in the form used in the present 
analysis. 

For each component of the gas, the continuity equation is 

( p i u ) + F ( rp i v ) =u> i r * (2.3-1) 

where the coordinates (r,x) have been normalized with the throat radius. 

Summing over all components of the mixture, the overall continuity equa- 
tion is obtained 

(pu) x + f< rpv) r = 0 .(2.3-2) 


Combining the above two equations gives 



w.r* 

i 

P 


The momentum equations are 


(2.3-3) 


p(uu + vu ) + P = 0 
r x r x 

p(uv + w ) + P 
r x r r 

2-l c 


(2.3-4) 


0 


(2.3-5) 



The energy equation is 


h + j(\x Z + v 2 ) = H. 


(2.3-6) 


where 


and 


h = 



c.h. 


l i 



C . 
Pi 


dT + h. 


10 


(2.3-7) 


(2.3-8) 


For each component of the gas, the equation of state is 

P i = p i R i T (2.3-9) 

Summing over all components of the mixture, the overall equation of state 
is obtained 


where 


P = pRT 

** 
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2.4 


INITIAL LINE CONSTRUCTION 


The solution to equations 2.3-1 through 2.3-11 becomes highly 
complex In the subsonic-transonic domain. Because of the elliptic 
character of the partial differential equations for the case of steady-state, 
choked flow in a rocket nozzle, the known boundary conditions are improperly 
set. Thus, it is necessary to construct by approximate means an initial data 
line suitable for the calculation by method of characteristics of the flow 
field in the supersonic domain. The method used by the TDK Computer 
Program in constructing this initial line is summarized below. 

2-4.1 Uniform Expansions 


For the purpose of calculating a transonic solution in the region 
of the nozzle throat, an average expansion coefficient is determined. To 
accomplish this, a one-dimensional calculation is performed from the chamber 
to throat for the propellant system and nozzle geometry specified using the 
ODK subprogram. 

Tables of flow properties (o / V, T,Cj) are constructed as a 
function of pressure. These tables span the nozzle throat region. An average 
expansion coefficient is computed using these tables as* 

ln(P/P.) 

y * *— *— 

ln(o i/ o 1 ) 

where the subscripts 1 and £ refer to the first and last table entries, res- 
pectively. 

Using the above expansion coefficient and the throat wall geometry, 
the transonic flow field is constructed using the method of Sauer in a some- 
what modified form as described in section 2.4.3. The initial line calculated 
by this method is an approximation to the constant pressure surface emanating 
from the throat minimum point. Along a constant property line it is a reasonable 
assumption that a constant value for expansion coefficient can be used. 


d £ nP i In P A - in ? l ~ Xn | P / P lj 
y ~ d £ n p £np e ~£n Pl in(p^ 



The TDK transonic analysis computes the pressure value at the 
throat minimum point, the location of the corresponding isobar, and the variation 
of streamline flow angle along this isobar. This particular surface has been 
chosen because it is advantageous from the standpoint of the assumptions made 
In the transonic analysis. It satisfies boundary conditions exactly at the wall, 
as well as at the axis and will yield a constant Mach number which is usually 
slightly greater than unity. If supersonic, this surface will be upstream of its 
characteristics, both left and right running. Should this surface be subsonic 
due to nonequilibrium effects, a provision exists for displacing the initial line 
downstream. Once the pressure surface described above has been calculated, 
all of the other gas dynamic properties are obtained by interpolation from the 
tables constructed by ODK. 


2.4.2 Zoned Expansions 

Many rocket thrust chambers are designed to operate with a cool 
(fuel rich) barrier zone near the wall to help shield the wall from excessive 
heat transfer. In audition thrust chamber and injector design usually result 
in a mal-distribution of the fuel/oxidizer ratio so that the resultant flow is 
striated into numerous zones of varying mixture ratio. In order to obtain an 
estimate of the effect of these phenomena on engine performance, a zoned 
expansion capability is included in the TDK computer program. Each zone is 
assumed to have a distinct mixture ratio and to contain a specified fraction 
of the total nozzle mass flow rate. The zones are assumed to be axially 
symmetric and are distributed radially from the nozzle axis to the nozzle wall. 

The procedure used in constructing an initial line for zoned expansions 
is analogous to that described above for uniform expansions. For the purpose 
of calculating a transonic solution in the region of the nozzle throat, an average 
expansion coefficient is determined for each zone. To accomplish this, a 
one dimensional calculation is performed from the chamber to throat for the 
propellant system and nozzle geometry specified using the ODK Computer Program. 
One such calculation is performed for each zone (i.e. for each mixture ratio). 
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Tables of flow properties ( p , V, T,c A ) are constructed as a function 
of pressure for each zone. These tables span the nozzle throat region. An 
average expansion coefficient, y n< is computed for each of N zones using 
these tables as 


- _ ln(P , /P l>n 

V " •■*<<■? Pi >„ 


n = 1, 


N 


where the subscripts 1 and i refer to the first and last table entries, res- 
pectively . 

Using the above expansion coefficient vector and the throat wall 
geometry, the transonic flow field is constructed using the method described 
in section 2.4.3. The initial line calculated by this method is an 

approximation to the constant pressure surface emanating from the throat 
minimum point. Along this line each zone is separated by a double point 
defining the properties on either side of the contact discontinuity. 


These points, which have equal pressure and gas streamline angle, become 
dividing streamline points in the method of characteristics calculation (see 
subroutine DSPT, Section 5). Properties other than pressure and flow angle 
are discontinuous across a dividing streamline and these discontinuities may 
be large. Within a given zone only the gas streamline angle will vary with 
location (r,x) along the start line. Properties other than pressure and flow 
angle are obtained by interpolation on pressure from the tables constructed 
as described above by use of the ODK subprogram. 


2-19 



2.4.3 Transonic Analysis 


The basic assumptions made in carrying out the transonic analysis are 
summarized below (see Reference 9 for a more complete discussion): 

o The flow is inviscid and compressible 

o The flow is near the sonic speed and directed nearly 

along the nozzle axis 

o The flow is axially symmetric 

o The flow is divided into annular zones, each of which 

is characterized by a single adiabatic expansion 
coefficient, y. 

o In the nozzle throat region the flow is dependent only on the 
local wall geometry 

With the above assumptions equations 2.3-1 through 2.3-11 reduce to 
the equations governing the irrotational flow of a perfect gas, i.e.. 


a v _ a u _ 
ax br 


and 


(a 


2 



a u 

ax 


2uv 


iM- + 

ar 



, 2 
a v + a v 

a r r 


= 0 


The method of analysis used to approximate a transonic solution to these 
equations is a small perturbation technique. For a one zone expansion the method 
reduces to that given by Sauer. 8 The method consists of normalizing the velocity 
to the critical speed of sound 
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Perturbation variables u' and v‘ (both of which are assumed of small 
magnitude with respect to unity) are then introduced. 


u = 1 + u* 

. 

V = V 

It can be shown that substituting these relations into the governing 
equations and retaining only terms through first order gives* 


5 v* 
dx 


a u' 
a r 


= 0 


(y + 1) u' 


3u‘ 

ax 


av 1 

ar 


v'/ r = 0 


An exact solution for the above equations can be constructed and is 
found to be 


u' = ~ ( I. 4. i\ d2 _2 


4 - (y + 1) B : r^ +Cj In r + B q +Bj x 

r* *= _L /.. + i\ 2 ~3 3 1 , , 

16 \y xy ojr r — ly + i; Bj Cj r (in r - ~ 


+ *T* ( y + B i B 0 r +C 2 /r 
+ {4"(y + 1) B^r + Cj/rjx 

where B Q , Bj, Cj, and C 2 are constant coefficients which must be determined 
from boundary conditions. For the case of a nozzle throat with constant radius 

of curvature, R, (i. e . a circular arc, see Figure 2-2) these coefficients are 
found to be 



which is the classical solution given by Sauer. 8 


A complete derivation of the material presented here is given in Reference 9 . 
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Nozzle Throat Geometry 
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Nearly all exhaust nozzles for engines using liquid propellants are con- 
structed with a radius of curvature smaller than appropriate to the small perturbation 
methods of analysis. Fortunately a simple modification to the method yields results 
which compare favorably both with experimental measurement and with the results 
of other analysis when applied to throat geometries such as occur in rocket exhaust 
nozzles of practical interest. The basis for this modification is to bound the method 
such that the computed pressure proceeds to a physically reasonable limit for a 
zero radius of curvature throat. The bound is applied at the wall boundary con- 
dition and is chosen such that the ratio of pressure to sonic pressure be zero at 
this limit. This assumption leads to the result that 

P/P *fthrOdt =1 -<’' /4 >/< R+ r/'l) 
rather than the usual result 


P/P *| throat = 1 ~ tv/*) / R 


which is divergent for R = 0. Results obtained from the transonic analysis (see 
Reference 6) have been found to compare favorably to both available experimental 
data and to the results of other, more complex, analytical methods. 
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To apply the small perturbation analysis to striated flow the analysis 
assumes that the nozzle flow is divided into N axially symmetric zones, each 
of which is characterized by a constant (i.e. average) specific heat ratio. These 
N zones are bounded by N-l sliplines, i.e. dividing streamlines, such that pressure 
and streamline angle are matched but other properties such as velocity, temperature, 
and Mach number are discontinuous. A first order method is used to determine the 
radial coordinate location, Y n , of each slipline. Once these locations are known, 
boundary conditions are applied at the wall, axis, and each slipline to complete 
the solution. 

The indices n = 0, 1, . . . N identifying each zone and slipline boundary 
are taken numbered from nozzle axis to wall as shown in Figure 2-3- The 
sliplines are located at 

Y n ; n = 0 , 1, . . . #N 

The total mass flow rate for the nozzle is 

M w 

and for each zone the partial mass flow rate is 

• _ mass flow rate, zone n n = 1 , 2, . . . N 

mn M 


so that 


N # 

yv - 1 ® m 1 + m 2 + . . • + m n 

n»l 
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index 


boundary 

Index 


slipline locations 


N 
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N-l 


n+1 


n 
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n 

n-l 


N" 

N- 
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n+1 


n 


n-l 


3 


3 

2 


1 


1 


1 


0 


Y 

2 


Y # =0 
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Figure 2-3 Nomenclature for the Numbering of Zones 
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Applying the continuity relation it can be shown that to first order 

the Y 2 are solutions to the tridiagonal system shown below, 
n 




► 


• 



Y? 


0 

(1 + AjKj) » “ 1 


1 



“ A 2 K 2 * (1+A 2 K 2 ) , _1 


Y 2 

x 2 

• 


0 

• 

• 

• 


• 


• 

• 


• 


• 



• 


• 

~ a n-i k n-i' < i+a n-i k n-i ) 


Y 2 

Y N-1 


1 

- 


m m 

' 

• 


where 


m 


n+l 


m_ 


A n* 


p* a 
n 


p* a* 
n+l n+l 


n *= 1, 2, . . . N-l. 
n 83 1, 2, . . . N-l 


Once the slipline locations Y n> are known it is necessary to apply boundary 
conditions sufficient to determine the constant coefficients B Q ^, B^, C^, C^. 

The conditions applied are: 

at the axis; 

the radial velocity component is zero, 
at the sliplines; 

the gas pressure and streamline angle match through first order. 
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at the wall; 

the gas streamline follows the wall streamline through first order. 

These conditions require that the following relations be satisfied by the constant 
coefficients: 

at the axis (for n-l), J 



at the sliplines (for n=2, . . . , N=l); 


T6<V1> 2 bJ < 

n 


+ '?<V 1)B 1 C 1 Y n (lnY n-T> 
n n 


1 


♦ -2 B 0 Y n + C 2 Y 

n n . n 


-i 


TT <Vn+l + 1 > 2 B 1 Y n + 7(v n + , + l)B 1 C. Y (lr Y >4) 
16 r n+l l n+1 n 2 n+1 l n+1 l n+1 " n 2 


+ i^ n+1 + 1 )B u,V.Y n ^ 2 _^ n 


-1 


n+1 n+1 


'n+1 


and 


and 


T(V " +1) \ Y " + °> n V ■ t 'V! * » B t, Y n + <\ +1 

" h [ i<yn+,) B L Y " +c > n inY " +B o n ]j ■ 

B V, Y n + %« ,nY n + \ +1 ]| 


and 


P S v n B , - PS+1 B 1 


n+1 
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at the wall (n - N) ; 


{ Vn + 1)2 B 1 n " T ( *N +1) . B 1 N C 1 N 


+ 4 (v N +l) B. B 0 +C 2 =0 
2 N *n °N 


and 


T <v N + 1 > B ? N + c i N “ lA 


The above equations form a system of 4N non-linear equations in 4N 
unknowns (B Q , Bj , C^, C^) . For given values of R and of the vectors m n , 

A f y , and thedbov? system of equations can be used to determine the 4N 
unknown coefficients by employing standard numerical technique. 

To apply a numerical method (such as the Newton method) to obtain a 
solution to the above system of equations lequices an estimate for the solution 
vector (B q , Bj , Cj , C 2 ). The TDK program uses the one zone solution to 

provide a first estimate. A good estimate is obtained since if 


>n " ?n+l 


n - 1,2, * . 


N-l 


the one zone solution satisfies the above system identically. The program also 
takes advantage of the banded property of the Jacobian, J, for the above system 

in using Niton's Method, x^ 1 * = x W - J«‘ l 'f W r to obtain solutions. 

The method described above has also been bounded so as to give reasonable 
answers for nozzle geometries where R is small. 
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2.4.4 Transonic Model with Mixture Ratio Variation 


The transonic model used by TDK which is described in the 
preceding section divides the flow into regions of constant 
mixture ratio that are separated by sliplines. Each region 
contains a specified fraction of the total mass flow. This 
method, which is called the striated flow option, has been 
modified so that flows with continuous mixture ratio variation 
can be analyzed. This variable mixture ratio option is 
described below. 

When the variable mixture ratio option is used, there are no 
sliplines in the flow. Instead, the flow mixture ratio ,r, will 
vary from the axis (V-0) to the wall (f-1) as specified by an 
input table of r versus V. The streamline function , V , 
represents the mass flow between the streamline and the axis, 
divided by the total nozzle mass flow. An ODK calculation is 
done for each entry in the above table. Values along the 
Initial data line for the MOC are obtained by interpolation in 
the ODK results using pressure and radial coordinate position 
,Y, as independent variables. The transonic analysis is used 
to provide a table of V versus Y. The method used is described 
below . 

The ODK program constructs tables of flow properties 
(Pi V, T, and c^) as a function of pressure. These tables span 
the nozzle throat region. An average expansion coefficient is 
computed using these tables as 


- An (P t /P^)/An (Pfc/P^ 


Y 



where the subscripts 1 and l refer to the first and last table 
entries, respectively. Values of Y are found from Y and from 
Input to the transonic analysis 


Y 

n 



Vi 1/2 


n ■ 1,2, ...N 


and also 


n 


(P + P ) / 2 

c c , 
n n- 1 


’n 


4> - y 

n n-1 


Using these values, the transonic analysis calculates 


Y 

0 



Y , , . 
wall 


The above Y r values represent the radial location at which the 
input mixture ratios 


r , 
0 


r , 

i 


r , 
2 


. . . . r 


N 


are located. In this way the input table of r versus Y is 
converted to a table of r versus Y. 

Next, the transonic analysis is used to compute the 

coefficients (B Q , B 1 , c i » C 2 These are used to compute 

n n n n 

P(X,Y) and 9 (X,Y) in the transonic region (see Reference 9, 
pp.2-20) at points n»0,1...N. U3ing each of these N + 1 values 
of P as an independent variable, the corresponding values for 
p,V,T, and c^ are obtained by linear interpolation from the 
corresponding table that was computed by ODK. These tables are 
then used to linearly interpolate for P,p,V,0,T, and ^ at each 
MOC initial line point using i|i as the independent variable. 
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The program will not function properly if the spacing in the 
mixture ratio table, r , is too large. The required spacing 
depends on the chemcial system. As a rule each entry must 
differ no more than H or 5 % from its adjacent values, depending 
on the stoichiometry of the system. 

The average engine mixture ratio, r , is also calculated: 

a V 6 

Y Y 

wall wall 

r - f (— — ) dm / f (— - — ) dm 

ave J r + 1 ' r+1 

0 0 

where 

r is the mixture ratio at position Y, and 
dA - pV YdY . 
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2.5 METHOD OF CHARACTERISTICS FOR KINETIC EXPANSIONS 

By standard methods the characteristic relationships for the 

conservation equations 2.3-1 through 2.3-11 can be shown to be 

(see Volume 2, Section 18-3, Zucrow and Hoffman ). 


il = tan 0 
dx 




dP , d£ = 


cos 


-0 


dx 


V - 1 dP dT B dx 
P ” T “ cos 9 


dc. = 


cj.r* 

i 


i “ pV cos & 


dx 


along streamlines , 



along left running characteristics , and 

~ = tan (9 - a) 

^ = -G Ha - dx - dej 

along right running characteristics, where 


(2.5-1) 

(2.5-2) 


(2.5-3) 

(2.5-4) 
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F = cos 0 - sin 0 cot (0 + o) 

G *-—2 

sin a cos a 

H « cos 0 tan (0 - a) -sin 0 


(2.5-5) 

(2.5-6) 

(2.5-7) 
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The above form of the characteristic relationships remains determt- 
nant when the streamline is horizontal, when the left running characteris- 
tic is vertical, or when the right running characteristic is horizontal. Rarely 
(if ever) will the inverse of the three situations occur in nozzle flow field 
calculations. 

In the analysis above the chemistry is brought into the conservation 
equations through the net species production rates , cOj* The analysis 
pertaining to the chemistry is identical to that used by the ODK program 
as presented in Section 2.2. 
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Ordinarily the TDF expansion assumes the chemical 
composition to be frozen at the equilibrium values at the 
chamber contraction ratio (ECRAT). However, initial species 
compositions and flow conditions can be input. This is the 
procedure that must be followed when analyzing hydrazine 
monopropellant thrusters. 


8501 06 
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2.5.2 Method of ££i£££ £ ££i£ii££_I°£ i£Hiii££i£_ £*2£££i 2£2 

LlkEl 

The supersonic expansion can be analyzed using the method of 
characteristics assuming that the process is in a state of 
shifting chemical equilibrium. This option is called a TOE 
analysis. It can be used both for striated flow, and flow with 
streamline to streamline mixture ratio variation. Like the TDF- 
analysis, it is very much faster than a TDK analysis. The 
methods used by TDE are described below. 


The conservation equations to be solved are: 


continuity: 


(pu) x + r (rpv) r ■ 0 


momentum : 


energy : 


where 


p (uu x + vu p ) + P x - 0 
p ( u v x + vv p ) + P p - 0 

The energy equation is not used explicitly. 
Instead, property distributions are provided in 
the form of tables by a separate equilibrium 
computation. The energy equation is then 
satisfied in an implicit manner as* 

1 / 2 

V - (2h - 2h) 

o 

h - h ( P ) 


is supplied by the chemical equilibrium module, ODE, in the form 
of a table. 


•Entropy is a constant for the expansion so that a function of 
only one variable, P, is required. 
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The state equation is also satisfied in an 
implicit manner as 


where 


T ( P ) 

M (?) 
w 


are supplied by the chemical equilibrium module, ODE, in the 
form of tables . 


The above conservation equations have been transformed to 
the characteristic form and are solved numerically in the same 
manner as by TDK. For convenience tables of specific heat 

ratio and Mach number are also tabulated. The complete set of 
tables used are: 


h 

V 3 

log 

(p) 

enthalpy 

M 

V 3 

log 

(P) 

Mach number 

M 

w 

VS 

log 

(p ) 

molecular weight 

T 

VS 

log 

(P) 

temperature 

y 

VS 

log 

(P) 

ratio of specific heats 


where each of the above tables has been constructed for each 
zone (i.e., region of constant mixture ratio) of the 
expansion. The above choice of curve fit form (i.e., vs P or 
log P) was made after investigating the graphical form of the 
above functions for typical equilibrium expansions. A spline 
fit method is used to interpolate in the above tables. 
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2.5.3 


METHOD OF CHARACTERISTICS FOR APPROXIMATE 

EXPANSION ( TTDK ) 


KINETIC 


The supersonic expansion can be analyzed using the method of 
characteristics assuming that the gas properties are defined by 
a set of tables prepared by the ODK module. The procedures and 
tables are the same as presented in the preceding subsection 
describing TDE expansions, except that ODK is used to prepare 
the tables, not ODE. 


An expression for the kinetic variable, A, i3 also required. 
It is found as (see the third equation in Section 2.5). 


A 


1 dP 
~P dX 


1 dp 
p dX 


) cos 0 


where dP/dX and dp/dX are found by numerical differencing. 

The kinetic variable, B, is not required, since the gas 
temperature is found as a tabular function of the logarithm of 
the pressure. 


A significant advantage of this option is that it gives an 
order of magnitude reduction in computer time for a given case. 
Although exact results can be obtained in the frozen and 
equilibrium limits, error can be introduced when the expansion 
is in chemical nonequilibrium. 


2.5.4 SU PERSONIC FLO W_WITH_SHOCK_WAVES 

For the case of continuous variation (or no variation) in 
mixture ratio, the TDK computer program can calculate the 
effects of a single shock wave that is caused by the nozzle 
wall. The shock can either be attached to the wall, or induced 
by the wall. The latter case is the more difficult to treat. 
The program logic utilizes a series six of point calculation 
procedures to locate and compute the shock. These procedures 
are illustrated in Figures 2-4a through f. The flow direction 
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1 3 left to right with streamlines shown as double lines. As 

shown in Fig. 2-4a the shock is initiated by a crossing of 
right-running characteristics. A shock point, labeled 3a 
(front) and 3 b (back) is computed by iteration of the 

streamline, characteristic, and shock relations. When 

completed, the point location and the front and back side 
properties satisfy all of these relations. This right running 
shock is traced to the flow axis and reflected as a left running 
shock. The procedure for calculating the reflection is shown in 
Fig. 2-4b. If at any point in the shock tracing it is found 
that regular reflection is not possible, then a right regular 
cylinder of radius, r Q , is inserted centered along the flow 

axis. The shock is reflected from this cylinder, which is 

located so that regular reflection is still possible. In this 
way Mach shocks are removed from the flow. The first point off 
the axis (or cylinder) behind the shock reflection is calculated 
by the special procedure shown in Fig. 2~4c. Next, the shock is 
traced as a left running shock using the point calculation 
procedure shown in Fig. 2-4d. This procedure is the inverse of 
the right running shock point procedure shown in Fig. 2-4a. 
When the shock reaches the wall, it is reflected using the 
procedure shown in Fig. 2-4e. A special point calculation 
procedure is then required for the first point behind thi3 
reflection as shown in Fig. 2~4f. The resultant right running 

shock is then traced as before, etc. Thus, multiple reflections 
are allowed from the axis and the wall. In general the shock 
strengthens as it travels towards the axis (right running), and 
weakens as it travels away from the axis and towards the wall 
( left running) . 

The shock option is not applicable to the TDE and TTDK 
options. 
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2.6 THE BOUNDARY LAYER MODULE (BLM) 


The purpose of the Boundary Layer Module (BLM) is to provide 

a method for computing compressible laminar and turbulent wall 

boundary layers in axisymmetric nozzles. The BLM can also be 

used to calculate two-dimensional and axisymmetric external 

flows. The method utilizes an efficient two-point finite 

difference method developed by Keller and Cebeci 11 . Turbulence 

Modeling is achieved through the use of Cebeci-Smith 

1 2 

eddy-viscosity formulation which has been tested for a large 
class of flows with various boundary conditions. 

In this section the method is described and the relavant 
equations, turbulence model, fluid properties and solution 
procedure are presented. Description of the numerical procedure 
is not presented, since it has already been described in several 
sources, for example Reference 13. 

The computer program on which the BLM is based was developed 
for SEA, Inc. by CBC Enterprises, Inc. 


Ref. 

1 1 

Keller, H 

. B . , and Cebeci, 

T. : 

Accurate Numerical 



Methods 

for Boundary Layer 

Flows , 

Pt. 

2, 



Two-Dimensional Turbulent Flows. 

A I A A J 

• , 10 , 

1 972 , 



pg. 1193. 






Ref. 

1 2 

Cebeci, 

T., and Smith, A. 

M. 

0 . : 

Analysi 

s of 



Turbulent 

Boundary Layers, 

Academic 

Press , 

N. Y. , 



1974. 






Ref. 

1 3 

Bradshaw , 

P . , Cebeci , T . , 

and 

Whitelaw, J. 

H. : 



Engineering Calculation Methods 

for Turbulent Flows. 



Academic 

Press, London, 1981 
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2.6.1 Boundary-Layer Equations 

For a compressible boundary-layer flow in a symmetric nozzle, the gov- 
erning equations are well known and can be written as 


Continuity 


w ( ‘ ,url ' ) * h ^ ' 0 


( 2 . 6 - 1 ) 


Momentum 


du. 




( 2 . 6 - 2 ) 


Energy 

3H — 3 H _ 1 3 , ki-p 3H , /•! 1 \ .. 3j£ 1 v 1 13 

pU 3x + pV 37"J5y (r [ PrIy * 1,11 • W 1 “ ly pH v J) 


(2.6-3) 


where k denotes the flow Index which Is zero for a two-dimensional flow and Is 
unity for an axi symmetric flow, and 


pV * pV + p’V 


r « r Q - y cos<j> 


The boundary conditions for Eqs. (7-1) to (7-3) are 


at 


y * 0, u * 0, v » v w (x). 


X * T (x) or q^x) ^ heat transfer specified) (2.6-4a) 


at 


y * 5, u * u fi , H - H g 


(2. 6-4b) 


The above equations require initial conditions and a turbulence model for 
Reynolds shear stress and heat flux terms, -pu' v' and -pH'v 1 , respec- 
tively. Here we use the concepts of eddy viscosity and turbulent Prandtl 
number and define 
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( 2 . 6 - 5 ) 


-pU* V* 


3 U 

pe m 3y * 


-piTv* 


£ m 3H 
p "FrjT 3y 


We also use transformed variables to provide the Initial conditions for a 
stagnation point flow and to reduce the sensitivity of the solutions to the 
Ax-spacing. They are defined by 

d*r » (^2.) 2k dx (2 . 6-6a) 

u e 1 /2 r k 

dr > * L r ) p(t— )dy ( 2 . 6 - 6 b) 

p e p e^ 


We also use a dimensionless stream function f(£,n) defined by 


3 (^Ve^* 5 lkf t5»n) 


( 2 . 6 - 7 ) 


where 


p- k - §■ • 


^ ■ wA - H 


( 2 . 6 - 8 ) 


With these transformations and with the definition of the relations given by 
Eqs (2.6-6 to 8) .it can be shown that the momentum and energy equations 
can be written as 

(bf")‘ + iftjff" + m 2 [c - (f 1 ) 2 ] - m 3 f" = ^ (f 1 ||1 - f" |I) (2 6 _ 9) 


. i 


(eg') + (df'f") + m^g 1 - m 3 g , 3 K (f ' §| - g' f£) 


( 2 . 6 - 10 ) 


Here primes denote differentiation with respect to n and 


f 3 u/u e . 


g 3 h/h 


( 2 . 6 - 11 ) 


The parameters b,e,d denote parameters defined by 


b - (1 + c^)C(l - t) 2k . 


_ C 
W 


+ Pr 


e = *=■ (1 + e m W7 )(1 


t) 2k (2.6-12) 


Cu 


6 (1 - idd - t) 2k 

e 
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where 


c = -HJL. . 
p e y e 


The parameters below denote dimensionless pressure gradients 

"4 _ _ z uw e _ 5 d 


1 + nig + m* 


T 


r du e 

” 2 *u^ 3T' m 4 


5^3? (p e"e ) 


and m 3 denotes dimensionless mass transfer parameter 


m. 


(pV) w »l/2 ,L_.k 

p U ^ 'r ' 
K e e s 0 


(2.6-13) 


(2.6-14) 


The boundary conditions given by (2.6-4) can be written in the following 


form 


at n ■ 0 , f * f' - 0 , g - g w (?) given 

or 

g' w (C ) ■ given (2.6-i5a) 

at n » n e . f * 1 , g = 1 (2.6-i5b) 

Mote that the wall mass transfer quantity (pv) w does not appear In the 
above boundary conditions, instead it appears In the differential equations 
through ra^ - This Isa useful convenient form when dealing with mass trans- 
fer (suction or blowing) problems. 


2 .6.2 Turbulence Model 

Here we use the eddy-viscosity formulation due to Cebecl and Smith to 
model the Reynolds shear stress term. We assume a constant turbulent Prandtl 
number and take it equal to 0 . 9 . 

According to the Cebecl and Smith eddy-viscosity formulation, the dimen- 
sionless eddy-viscosity e* Is defined by two separate formulas: in the 
Inner region of the boundary layer, cjjj 1 s defined by a modified mixing- 
length expression and In the outer region by an expression based on the veloc- 
ity defect. This formulation is defined by the following expressions: 
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L 2 3U 


v 3y YY tr 

y £ y c , inner 


(2.6-16) 

0.0168 ® ./ 

V J Ku e - u)ldy YY tr 

y > y c , outer 


Here y c Is obtained from the continuity of eddy-viscosity expression. The 
definition of L Is: 


L « 0.4y[l - exp(-y/A)] 


(2.6-17) 


where 


A - 26(H-) 1/2 ^-u _1 

Pw N T 


W 

P 


T w 

U T " ^ 

T Pw 


2 4 * 

n2 = {f" ^ C1 ” ex P (11 - 8 — v w )] + ex P (11 - 8 — O 
M e p w v y w r y w 

w 


, V u a du, 

+ _ e e e 


u J dx 

T 


+ v w 

V. = 


w = 1 r » \ * 


u e^ 


Pa 2 


V3 r ' c “- 


When there Is no mass transfer, 

n 2 - 1 -n. 8 ^ ( !i, 2 p+ ., . tl . aCwC y 

The parameter y Is an 1 nterml ttency term defined by 

1 


Y ■ 


1 + 5.5(y/6 ) 


(2.6-18) 


(2 . 6-19a) 


and y^ r Is a parameter which accounts for the transitional region which exists 
between a laminar and turbulent flow. At high Reynolds number flows, though 
the transition region is small and y tr has negligible effect on the results, 
this expression is still useful because it avoids a jump from laminar to tur- 
bulent flow calculations by allowing e* to change gradually, it is given by: 


Y tr = 1 - exp[-Gr£(x tr )( J X **) ( J X <jx.)] 


x tr r o x tr ” e 


(2 . 6-19b) 


where G Is a spot-formation-rate parameter 
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G « O/C^tuJ/vJ )^* 34 

C, - 60 + 4.86m!* 92 
1 e 

In terns of transformed variables, the eddy-viscosity formulas become: 


'm 


*1 

cp 2 


f" 


'e c 


0 (1 - t)' 


(1 - f')dn 


0 < n < n 


n c ^ n < n e 


Here 


( 2 . 6 - 20 ) 


’1 


0.16 ,L vk 


(i_) k (l . t)* - exp(-y/A)]yY tr 


_ 0.0168 u e ,L x k J/2 

*2" — c“— ( r^ h ™tr 

r l/2 

Y - c ‘ 3/2 (k -) k/2 w *V 4 i (f “) 1/2 

J 75 c ( r“ } JT \ W * 


(2.6-21) 


I) * J rr dn 

1 0 (1 - t) K 


. u. 3ni, r n 2k 

> - <ir» ^ • 


u r * jjT7T • /,c w f w C w (r o /L,l ‘ 
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2.6.3 


Fluid Properties 


Values of specific heat at constant pressure, C , and ratio 
of specific heats, Y , static enthalpy, h , and the gas constant 
R, are required by BLM. These properties are evaluated along 
the wall streamline as a function of temperature using the ODE 
module. The tables are prepared using a series of (T,S) 
equilibrium calculations, where T varies from 600°R to 7000°R at 
200 R increments. The chamber entropy value is used for S. 
Values at 100°R are then extrapolated and added to the table. 
The table is printed with the BLM output. An example of this 
output is presented in Figure 2-5. 

Since the ODE module did not contain a (T,S) option, it was 
added using the following procedure. Using known values of P 
T a , and Y & , and the given value of temperature, T, a first 
estimate for pressure P^ ^ was found as 


(1) Y a /(Y a " 1) 

? K ' = P a (T/T ) . a a 

CL SI 

Tjj (T.P> option of ODE is used to obtain as a function of 

P . The procedure is iterated using the secant method 
(subroutine ITER plus a driver) to find such that 


| (S (1) -S c )/S c |< 5 E-5 

where S Q is the chamber entropy. The procedure is repeated for 
each temperature in these tables. The procedure is internal to 
the program and not callable through the ODE input. 


If the chemical system contains a condensed phase, then 
equilibrium solutions made during phase change can yield values 
for Y that are unacceptable to BLM, e.g., values of Y< 1. 
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Figure 2-5: Tables of h, p» 
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Since condensation is an isothermal process, using (T,S) 

solutions avoid this problem. It also avoids the "temperature 

out of range" problem that can occur had other, existing options 
been used. 


V Y » 

prepared as 


The fluid properties shown in Fig. 2-5 are h, u , < 
and R versus T°R . The values of u and < are 
described in Section 2.6.4. The values for h, C , y , and R are 
prepared as described above, i.e., they are equilibrium 
properties including condensed phases (no gas particle lag). 


The gas constant , R, is the universal gas constant divided by the 
molecular weight of the equilibrium mixture. 


If the invisid core flow is frozen, it is more appropriate to use gas 
properties prepared using a frozen expansion of the chemical species. The 
program will prepare frozen tables that are analogous to the equilibrium 
tables described above when the IDF option is used, or if requested. 
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2 . 6.4 


Near Wall Gas Transport Properties. 


Values of gas viscosity, p , gas conductivity, < , Prandtl 
number, Pr, are required by BLM. These transport properties are 
evaluated along the wall streamline as a function of temperature 
using the ODE module. It is assummed that the expansion is in 
equilibrium, including condensed species. In the model these 
properties are then computed as "frozen" properties using the 
local gas composition with condensed phases included. 

The viscosity and thermal conductivity of the individual gaseous 
species are calculated from formulas given in Reference 14 as 
follows: 


4.15822 x 10" 8 J M T 

w i 



< 


i 


Uj R C Pi 

H ( - 45 * U32 WiT ) 1 

w i w i 


The required Lennard Jones parameters, are internally 

stored in the computer program for 206 gas phase species. (See 
Subroutine MUK In Section 5 of this report, for a list of the 

species.) The viscosity of the mixture is calculated from 

, 15 

Wilke's semi-empirical formula • 



(1 



-1 

*ij } 


where N is the number of species, x i the mole fraction of 
species i, and is defined by: 


Ref. l4r; Svehla , R. A., "Estimated Viscosities and Thermal Con- 
ductivities of Gases at High Temperatures," NASA 
TR-132, 1962. 

Ref. 15. Bird, R. B. , Stewart, U. E., and Lightfoot, E. N., 
Transport Phenomena , John Wiley & Sons, I960. 
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372 


M i 

1 + w~ 

M J 


- 1/2 


1/2 u 1/4 

U 1 M j 


1 > (-) 

J 


( M — ) 

M i 


The thermal conductivity, < , is based on the equation given by 
Mason and Scixena which is a slight modification of Eucken's 
relation, 


< 



N Xj 

1 + 1 .065 I 0 , . — 
j=1 J x 

i 



The results calculated as described above are used to 
provide the BLM with properties using the following procedure. 


The viscosity at the nozzle throat, y*, and the 

l 

corresponding temperature, T*, are calculated. Using these 
values, an exponent, u , is computed such that the expression 

y = y * ( T/T* ) W 

provides a best fit in a least square manner to the chamber and 
exit values for viscosity. Next, a constant value for Prandtl 
number is computed as 



where y , k , and Cp are evaluated at the nozzle throat. The 

"frozen" C value is used. The values transmitted to BLM are 
P 

then y*, T*, go , and Pr*. Actually, BLM only uses the ratio 
Pr/y, and does not require < or the frozen Cp versus T. 


Ref. 16. Mason, E. A., and Saxena, S. C., Physics of Fluids, 
Vol . 1, No. 5, pp. 361-369, 1958. 
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2.6.5 Use of Boundary Conditions and Gas Properties by BLM 

In general, the flow properties at the boundary layer edge 
as computed by TDK are not isentropic. The TDK expansion is 
isentropic only if the flow is in a state of equilibrium, or if 
the flow is frozen in composition. When the TDK expansion is 
not isentropic, there are inconsistencies between TDK and BLM 
with respect to edge values and gas properties. Thus it is 
important to describe the methods by which these parameters are 
treated . 

TDK supplies BLM with tables of V, and P vs X. 
Corresponding values of static enthalpy, h, are computed from 
the relation: 

h - H - V 2 / 2 

i.e., the BLM is given the condition that total enthalpy at the 
boundary layer edge is constant. In BLM enthalpy profiles and 
velocity profiles at constant pressure are used as state 
variables. Temperature and the gas constant, R, are obtained as 
a function of h by interpolation in the gas properties tables 
that were computed by the ODE module (see Section 2.6.3). 
Temperature is not a state variable, but together with the gas 
constant, it is used to obtain the gas density from the equation 
of state , i.e., 

p - P/RT. 

Thus, in general the gas density used by BLM at the boundary 
layer edge does not match the TDK value, although the values of 
P» V, and h do match. 
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The only other gas properties required by BLM are the 
Prandtl number, P , and the viscosity, y . A constant value is 
input for P^ and the viscosity, y, is computed (see Section 
2 . 6 . 4 ) as 

y - y (T/T )“ 

# # 

where the reference values y and T are taken at the nozzle 
throat . 

Values for C^(T) , Y(T), and k(T) are made available to BLM 
for auxiliary calculations, but are not used in the boundary 
layer solution procedure. 

2.6.6 Solution Procedure 

The solution procedure uses the numerical method described 
in Bradshaw et.al. , Reference 13* to solve the governing 
equations presented in Section 2.6.1. This is an efficient 
two-point f i n i t e -d i f f e r en c e method developed by Keller and 
Cebeci and extensively used by Cebeci for two-dimensional and 
three-dimensional flows. A detailed description is presented in 
Reference 13* and is not repeated here. 

One of the advantages of this numerical method is that 
nonuniform net spacings can be used in the x-direction as well 
as across the boundary layer. In the latter case, the 
nonuniform grid is a geometric progression with the property 
that the ratio of lengths of any two adjacent intervals is a 
constant; that is, An^ » KAnj_,j . The distance to the j - 1 h 
line is given by the following formula: 
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An, (K 


1 )/(K - 1 ) 


K > 1 


n 


j 


j 


There are two parameters in the above equation: 1) An, , the 
length of the first step, and: 2) K, the ratio of two successive 
steps. The total number of points, J, can be calculated from 
the following formula: 


J 


1 n[1 + (K - 1 ) ( n /An, )] 
e j 

1 n K 


Default values used by the computer program for An, and K 
are 0.01 and 1 .14, respectively. 
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NOMENCLATURE FOR SECTION 2.6, BLM 


A 1 phabet i c 
Symbol ^ 


Definition 


A damping length 

c density ratio, P Q /p 

C dimensionless densi ty- viscosity ratio 

C- local skin-f r ict ion coefficient, t /(1/2)p u 2 

f w K e e 



t 

T 


u , v 
u 

e 

u 

T 

X 

X 

y 


specific heat at constant pressure 
dimensionless stream function 
total emthalpy ratio, H/H 
s tat i c enthalpy 
total enthalpy 

flov; index, 0 for two dimensional flow, 1 for 

axisymmetric flow 

reference length 

Mach number 

molecular weight 

static pressure 

molecular Prandtl number 

turbulent Prandtl number 

heat- transfer rate 

radial distance from axis of revolution 
local radius of body of revolution 
gas constant 

local Reynolds number, u £/v 
entropy 

transverse curvature term, y cos<f>/r 
static temperature 

x and y components of velocity, respectively 
velocity at the edge of the boundary layer 

1 /2 

friction velocity (t p ) 
surface distance 
axial di stance 

distance normal to the surface of the body 
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NOMENCLATURE (Continued) 


Greek S ymb ol 


Definition 


Y 

<5 

6 * 


n 

e 

1C 

U 

V 

P 

T 

♦ 

* 


ratio of specific heats, C p /Cy 

boundary-layer thickness 
displacement thickness 
eddy v i scos i ty 

similarity variable 
momentum thickness 
gas conductivity 
dynamic viscosity 
kinematic viscosity 
dens i t y 

shear stress _ ^ 

angle of body slope, tan (dr Q /dX) 

stream f unct ion 


Subscripts 


Definition 


c 

e 

r 

tr 

w 

X 


chamber (stagnation) conditions 
edge of the boundary layer 
reference conditions 
transition 

evaluated at the wall 
x-direct ion 


Sup erscr i pts 


Definition 


* 


nozzle throat conditions 


Primes designate differentiation with respect to n 
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3. 


NUMERICAL METHODS 


In this Section numerical methods used by the ODK and TDK 
programs are discussed. The ODK subprogram. integrates the system of 
differential equations presented in Section 2.1.1. Standard integration 
methods, such as Runge-Kutta, are impractical when applied to these 
differential equations because of the very small step sizes often required 
for stability. Consequently a fully stable integration method has been 
developed and applied as described in Section 3.1. 

Solution of the characteristic differential equations presented 
in Section 2.5 also requires a numerically stable integration method. A 
highly stable implicit finite difference method is presented in Section 
3.2 for integration of these characteristic relationships. 
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3.1 ODK NUMERICAL INTEGRATION METHOD 

It has been shown by Tyson 17 that In the numerical integration of relaxation 
equations in near equilibrium flow regions (such as the chamber and nozzle inlet 
in rocket engines) , explicit integration methods are unstable unless the integration 
step size is of the order of the characteristic relaxation distance of the relaxation 
equations. Since the characteristic relaxation distance is orders of magnitude 
smaller than the characteristic physical dimensions of the system of interest (such 
as the nozzle throat diameter and length) in near equilibrium flow regions, the use 
of explicit methods to integrate relaxation equations in these regions results in 
excessively long computation times. Implicit integration methods were shown to 
be inherently stable in integrating relaxation equations in all flow situations 
(whether near equilibrium or frozen) and can thus be used to integrate with step 
sizes of the order of the physical dimensions of the system of interest throughout 
the integration reducing the computation time per case several orders of magnitude. 
Since it has been demonstrated that there are significant advantages in using 
implicit rather than explicit integration of the relaxation equations, a second order 
implicit integration method has been chosen for use in the ODK computer program. 



3.1.1 Stability Considerations 


The numerical considerations leading to the above conclusions can 
be illustrated by considering the simple relaxation equation 


dy_ _ . y-y e 

dx T 


(3.1-1) 


which represents the relaxation toward equilibrium of chemical reactions, gas 
particle lags, etc. In this equation y g is the equilibrium condition and Tis the 
characteristic relaxation distance of the equation. In the equilibrium limit, j 
is very small compared to the physical dimensions of the system of interest while 
in the frozen limit, j , is very large compared to the physical dimensions of the 
system of interest. The mathematical behavior of solutions to the above equation 
can be found by considering the simple case where r is constant and 


y e = y eo + a(x ' x o ) 

which is equivalent to terminating the Taylor series for y g after the first term. 
The exact solution for this case can be shown to be 

y( x 0 + h) = y(x o ) + [y eQ - y(x Q ) - arj £l - e" h/r J + ah 


where y(x Q ) is the initial value of y and h is the integration step. 

It is seen that the solution consists of two parts, a term which varies 
slowly with x and a term which exponentially decays with a relaxation length of r , 
the characteristic relaxation length of Equation (3.1-1). Thus after a few relaxation 
lengths 


y(x) “ y eo + ah ' h > >t 

which is independent of y(x Q ) the initial condition. Since explicit integration 
methods construct the solution of Equation (3.1-1) as a Taylor series about 
the initial condition y(x Q ), the above example indicated that explicit integration 
methods should be limited to step sizes of the order of a few relaxation lengths. 
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That this is indeed the case can be shown by explicitly integrating 
Equation (3*1-1) using Euler's method. The explicit finite difference form is 


y(x„ + h) - _ y(x n ) - y 


h 


J£0_ 


which yields the truncated Taylor series 

y(x Q + h) = y(x Q ) ( 1 " + y eo t 

when solved for y(x^ + h) • After n integration steps, it is found that 

y(x o + nh) = y(x o ) [l - *]" + £ [y „ 0 Mi - D ah] [l - 7 ] 7 

Examination of this equation shows that the independence on the initial condition 
y(x ) will decay only if J 1 - h/r\< 1 / otherwise y(x Q + nh) will oscillate with 
rapidly increasing amplitude. Hence the calculation will be stable only if h/r < 2 . 
Similar results are obtained for other explicit integration methods. (The stable 
step size for Runge-Kutta integrations is h/r< 5.6.) Thus the stable step size for 
explicit integration of relaxation equations is of the order of the relaxation distance 
which explains the large computation times associated with explicit integration 
of relaxation equations in near equilibrium flow regions. As shown below, the use 
of implicit integration methods allows the integration of relaxation equations on a 
step size which is independent of the relaxation length. 

Implicitly integrating Equation (3.1-1) using Euler's method, the finite 
difference form of Equation (3.1-1) is 

y(x rt + h) - y(x Q )_ y(x n + h) - y^ n - ah 


eo 


which yields 


y(x Q + h) 


y(x 0 > + (y eo t ah > 7 

m 

T 
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when solved for y(x Q + h) . After n integration steps it is found that 


y(x Q + nh) = 


y(x o ) 


A 4 

*.z 


y + iah 
eo 


nr 4i h 


ln+ t -i 


h 

T 


(3.1-2) 


Examination of this equation shows that the dependence on the initial condition 
y(x Q ) always decays, regardless of the step size. Hence the implicit calculation 
will always be stable. As an extreme example, consider one integration step, 
h = x - x Q . From Equation (3. 1-2) , it is seen that 


y(x) =• y eQ + ah , h > > T 

when the step size is large compared to the relaxation length and 

y(x) = y(x ) ( 1 - -) + y h >> r 

o r eo r 

when the step size is small compared to the relaxation length. 

It is seen that in the equilibrium limit (x small, h/x large) the exact 
solution and the implicit integration of the relaxation equation go to the same 
limit which is independent of the relaxation distance and depends only on the rate 
of change of the equilibrium condition. In the frozen case (r large and h/r small) 
the implicit and explicit methods are essentially the same (terminated Taylor series) . 
Thus, implicit numerical integration methods can be used to integrate relaxation 
equations using step sizes of the order of the physical dimensions of the system 
of interest in all flow situations whether near equilibrium or near frozen. For a 
complete discussion of the numerical integration of relaxation equations , 
see Reference 17 • 

In choosing a numerical integration method, the primary items of concern 
are the stability, accuracy and simplicity of the method. As shown by Tyson‘S and 
discussed above, implicit methods are to be preferred for numerically integrating 
relaxation equations due to their inherent stability. Having chosen the basic inte- 
gration method for stability reasons, the order of the integration method is determined 
by accuracy and simplicity considerations. In general, the higher the order of the 
integration method, the more complex the method becomes requiring more information 
in the form of past value or past derivatives of the function being integrated. 
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Second order methods (accurate to with error of order h^) have the advantage 
of simplicity and flexibility since they require only one past value of the function 
while retaining sufficient accuracy to allow the use of reasonably economical step 
sizes. For these reasons, a second order implicit numerical integration method 
was chosen for use in the present program. A complete derivation of this numerical 
integration method is given in the following section. 
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3.1.2 


Derivation of the ODK Numerical Integration Method 


Consider the coupled set of first order simultaneous differential 

equations. 

dy. 

...» y • i — 1»2,...,N 

It will be assumed that the equations are not singluar and that a solution exists 
which may be developed as a Taylor series about the forward point 


k. 


dy i 

h d2yi 

,2 d 3 y. 

2l_ + LI 

h 3 d \ 

dx 

x +h dx* 

n 

X + , 3 
i* dx 

x +h 

+h " dx 4 
x +h 


24 


x +h 
n 


where k^ is the increment in y^ and h is sufficiently small. For equal 
integration steps 


dy i 

k. , . + k. =2 — : — 

l, n+1 i, n dx 


d2y i 
h - 4 =£ 

x +h dx^ 

n 


x +h 
n 


,2 d 3 y. 

4- +s-i 

C dx J 


x +h 
n 


- 16 


Ai 

dx 4 


24 


x +h 
n 


Solving these equations for the derivative at the forward point, it is found that 


dyj 

dx 


3k. 


• i j - k. 

i, n+1 i 


x +h 
n 


2h 


d y. 


x +h 
n 


Expanding the function f.(x, y, . . . , y^) as a Taylor's series about the back 


point (x n ) , it is found that 


dyj 

dx 


N .3 

= f. + a. h + T a. . k. + 

x n +h ** n l ' n jt-j P i. J.n j,n+l ^3 


3-7 



where 


• • • i y N ) 


a i dx 


af. 




i/j ay. 


and the subscript n refers to the functions f^, and /3^ j evaluated at the point 


x . Since 
n 


and 


djr 

s 



dx 3 

dx 3 

X 

x +h 

dx 4 


h + 


n 


H 

dx 


n 


dx 4 


x +h 
n 


« i * « 


x +h 
n 


Thus the formula for Taylor Series expansion about the back point can be written as 


fa 

dx 


N 

= f. + a. h + T (3. . k. , . + 
£ +h x, n i, n M K i, ), n j, n+1 

n * 




dx' 


Jl 

2 


• * t i 


x+h 

n 


Equating the expressions for the derivative at the forward point and back point, 
it is found that 


3k i n +< * k ! n « N 

L n ^* h n : { x 
2h - + 


d3 y« 


._+<*, h + T . k. + 

i. n i, n Aj J* n J. n+i ^3 


h 2 . 

T + “ ' 


x +h 
n 


or 


k. 


i, n+i 


= 4 k. + 2(f. + a. h + r p. . k. 

3 I i, n ^x, n x, n Ay i, j, n j, 


n+ij 


d3 Yi 


dx' 


x n +h 
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Neglecting the third order derivative term and solving the set of N linear 
nonhomogeneous algebraic equations 


(' - 3 P i. i. n h ) k i, „ + , *£<•- ‘i.j’Pi, = 1 [\ „ + 2 «i, n + “i. n h)h ] 


where 6, is the Kronecker delta thus yields a second order implicit solution 
of the above coupled first order simultaneous differential equations. 

For unequal step sizes, it can be similarly shown that solving the 
set of N linear nonhomogeneous algebraic equations 


(| " 2h n + i +h n *' nhn + y ki < n + 1 ( 2h n+I +h n )h n ~ &i ' J* "N* n+1 


n+i 


(2h . , +h )h 
' n + 1 n n 


\ + (f. + O. h (h . , + h ) 

ii n i, n i, n n+1 h n+1 n 

n+1 


yields a second order implicit solution of the above set of coupled first order 
simultaneous differential equations. 
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3-2 


TDK NUMERICAL INTEGRATION METHOD 


The reacting gas char ac t er i s t ic relationships given in 

Section 2.5 are usually integrated using second order explicit 

methods. It has been shown, however , that implicit integration 

methods are superior to explicit methods for integrating 

1 7 

chemical relaxation equations . Thus, in the present program 
the fluid dynamic equations are integrated using an explicit 
Euler method while the chemical relaxation equations are 
integrated using a first order implicit integration method. 

In numerically calculating flow fields using the method of 
characteristics, only two (previously calculated) known points 
are directly usable in calculating a forward point. In 

equilibrium flows, only two known points are required to 
calculate a forward point and the calculation is s t ra i ght f orwar d 
and unambigous. In nonequilibrium flows, however, more than two 
known points are required to calculate a forward point so that a 
choice must be made as to which points in the flow field will be 
used directly and which will be Interpolated. Since even small 
interpolation errors in species concentrations are known to 
cause serious stability and accuracy problems in the numerical 
integration of the chemical relaxation equations, the back 
streamline point and one characteristic point were chosen as the 
known points. This choice avoids interpolation for the species 
concentrations in that only fluid dynamic properties (velocity, 
pressure, etc.) and the kinetic coupling terms (A and B) need be 
interpolated at one of the back characteristic points. Since 
these quantities are all slowly varying across the 

characteristics mesh, they can be accurately interpolated. 
Experience has shown that this choice of numerical integration 
methods and known data points is satisfactory for reacting gas 
characteristics calculations. A derivation of the numerical 

integration methods used in the program are given in Sections 
3.2.1 and 3*2.2 below. 
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Integration of the Fluid Dynamic Equations 
Consider the flow field shown in Figure 3-1, below: 



Figure 3 - 1 . 


Flow Field Interior Point Calculation 


Between points 3 and 4 the streamline characteristic 
relationships are integrated as: 

r 3 ” r J| + ( x 3 ~ x 4 ) tan 0 ^ (3.2-1 ) 


'3 

or 

v 




{2(H t ~ l c 1 h i ) | 


1 / 2 


<?> 

P 3 1,3 

P n ( d ) exp { - ( — — — ) ( x - x ) } 

4 p 4 1 cos 0^ 3 


Y-1 


< — > 

P o 43 

T 4 ( P ) exp { - ( 


= 03 6 >'VV) 


(3.2.2a) 


(3.2.2b) 


(3.2-3) 


(3.2-H) 
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where the double subscripts imply averaged values, e.g.s 

0 3M * ( 0 3 +0 ij) /2 • 

(1) - (i/y 4 + 1/Y )/2 , etc. 

> 43 

The integration formula (3.2-1) relating the coordinates of 
points 3 and 4 is exact if the streamline is a circular arc 
between points 3 and 4. Equation (3.2-2a) is the Bernoulli 
Equation and is used to obtain a first estimate for V r 
Successive estimates are made using the energy equation 
directly, i.e., equation 3.2-2b, so that energy is conserved 
exactly along streamlines. In integrating the energy equation 
and the perfect gas relationship to obtain Equations (3.2-3) and 
(3.2-4), the coefficients Y _1 , A/cos 0, (Y-1)/Y , and B/cos 9 

appearing in these equations were assumed to be equal to their 
average value between points 3 and 4. 

Between points 1 and 3 the right running characteristics 
relationships are integrated as: 

r ^ " n 1 + (x^-x^ tan (0 - a)^ (3-2 5) 


P 3 - p, ♦ P 13 l[ -UGH) 13 *(GH) 13 — (3-2-6) 

(Xj-X, ) * G 13 (9 3 -9,)| 

The above equations are a finite difference form of 
equations (2.5~3) and (2.5-4), respectively. 
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If point 3 i 3 an axis point then and 0^ are zero and the 
indeterminate quantity (sin d^)/r^ appearing in Equation (3.2-9) 
can be approximated by using the value obtained at point 1 . 

Between points 2 and 3 the left running characteristics 
relationships are integrated as: 

x 3 - x 2 + ( r ^-r 2 ) / tan ( 0 + cx)^ (3-2-7) 

sin e ? _ 

p 3 - p 2 + p 2 3 ^ ( A GF ) 23- ( GF ) 23 ^ (3-2-8) 

( r 3 ~ r 2 ) - G 23 O 3 ~0 2 ) I 

The above equations (3-2~7) and (3.2-8) are a finite 
difference form of equations (2.5-1) and (2.5-2), respectively. 

If point 2 is an axis point, then r 2 and 0 2 are zero and the 
indeterminate quantity (sin % 2 )/r 2 appearing in Equation (3.2-8) 
can be approximated using the values estimated for point 3. 

Equations (3-2-6) and (3-2-8) can be combined to yield: 

sin 0 p _ 

e 3 - 1 p 2 -p 1 *p 23 [-<aop) 23 -(°f> 23 --““I <v r 2> 

sin 0 

-P 13 [-(A°H), 3 .(GH ), 3 -_--il] (X3 - Xi , 

* P 23 0 2 3 V P 13 G 13 e i |/,P 23 O 23* P 13 G 13 1 <3 ' 2 ' 9) 
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The modified Euler iteration method is vised by TDK to solve 
the above equations in the various point calculations. The 
implicit method used by TDK to integrate the chemical relaxation 
equations is presented next in Section 3.2.2. 
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3.2.2 Derivation of the TDK Numerical Integration Method 

The chemical relaxation equations are a coupled set of first order 
simultaneous differential equations of the form 

dc. 

= f i (c r c 2 * * * * * c n * Yy y z > Yy y 4 ) i = l. 2. • • • , n 


along the streamline where y^, and y 4 refer to the fluid dynamic variables 

V, p , T, and 0, respectively. Assuming that the equations are not singular and 
that a solution exists which may be developed as a Taylor series about the forward 
point, one obtains 


K r 


d C. 

nr 


n+h 


where kj is the increment in Cj and h is sufficiently small. The first coefficient 
of the Taylor series may be calculated as 


dc. 

*dx ^ C l* c 2 ’ * * ‘ * C N’ Yy y 2 ‘ Yy y 4 ) 


Expanding as a Taylor series about the point x n , it is found that 


th 

dx 


n+h 


N 4 * . f ", 

f. + 5\ P- • k. + T'p. . Py . +0 Ii I 

t.n K i,j,n j A'ji.j.n y j l J 


where 


8f. 

P i.j 


8f i 

j " W) 
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and the subscript n refers to the functions f^, fl ^ y and ^ evaluated at 
the point x n « 

Thus neglecting the second order error and derivative terms yields 
the integration formula for the increment JCj 



3-3 SUMMARY OF THE TDK COMPUTATIONAL PROCEDURE 

The steps below summarize the computational procedure used by 
the TDK Computer Program (ODE-ODK-TDK input option): 

Step 1 . (Zone 1 , inner zone O/F ratio) 


1.1 ODE is used to compute: ' 

1.1.1 P,H solution at stagnation (chamber V=0) 
condition 

1.1.2 P,S solution at throat (pV maximum) condition. 
Entropy, S, is computed in step 1.1.1 above. 

1.1.3 c ,S solution at input contraction ratio. 

c 

1.2 An average expansion coefficient, , is conputed by 

Subroutine SIJBNE • This expansion coefficient 

is the perfect gas expansion coefficient which 
would yield the throat pressure ratio computed 
in step 1.1.2. 

1.3 A pressure table P(x) and its derivative dP(x)/dx are 
computed using the perfect gas relations, N e< and the 
input thrust chamber geometry. 


1.4 The ODK Computer Program is used to integrate the 

finite rate equations for one dimensional flow. The 

integration begins at e . So that the flow will not be 

c 

singular at the throat, P(x) and dP(x)/dx are used until 
the flow is supersonic (M ^ 1.02). For supersonic 
flow the area defined relations are used. 


Step 2. 

The sequence described in Step 1, above, is repeated for zones 2 
through N ^50, the outer zone. 

The following throat property tables are constructed during each of 
the above calculations: 

p , V, T , c 1 vs . P. 

These tables begin at the ODK determined throat (pV maximum) and 
end when the flow attains a Mach number of 1.5. 
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Step 3. 


An average expansion coefficient, y , is computed for each 
zone using the tables constructed in Step 2 . 

£n (P £ /t , 1 ) 

y n ~ Tn TpJpI ) n = 1 , . . . N ^ 50 

The subscripts 1 and l refer to the first and last table entries 
(at the ODK throat and at M=1 . 5) . Thus if the flow through the 
throat is in equilibrium ywill attain the equilibrium value and if 
the flow is frozen y will attain the frozen value. 


Step 4. 

4.1* Using the above values of y ^ and the upstream radius of 
curvature at the nozzle throat, , a two dimensional 
(axially symmetric) initial data line is constructed using 
a small perturbation method. The location of the initial 
data line across the nozzle throat region 
is determined. The location of the slipline positions is 
also determined by the small perturbation method (from 
the continuity relation) . Pressure and flow angle are 
matched (through a first order of approximation) at the 
sliplines . 

4.2 Flow properties of p , V, T, and Cj are interpolated from 

the tables constructed in Step 2 using the pressure determined 
in Step 4.1. 

Step 5. 

A method of characteristics solution is computed for the nozzle . 
Boundary conditions are the initial data line and nozzle wall with 
a symmetry condition used along the nozzle axis and slip conditions 
(matched pressure and flow angle) used along the streamlines dividing 
zones of different O/F. The finite difference mesh is constructed at 
gas streamline and left running characteristic intersections . 
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4. 


PROGRAM STRUCTURE 


This section contains an over-all description of the 
structure of the TDK computer program. TDK consists of a master 
control module (MCM) and five major computational modules, as 
follows: ODE, ODK, TRAN, MOC. and BLM . Each module is 
described briefly in Figure 4-1. The computational modules have 
been combined with the MCM so that they can be run together 
automatically. The extensive use of internal communication 
between the modules has eliminated the need for redundant inputs 
by the user. 

A schematic of an overlay structure for TDK is presented in 
Figure 4 2. This figure should prove useful to programmers who 
wish to convert TDK to a computer, such as CDC or Univac, on 
which an overlay structure is mandatory. TDK has been developed 
for the DEC 11/780 Virtual Address Extension (VAX) computer for 
which no overlay structure is required. 
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Figure 4-1 : BASIC MODULES OF TDK 


MODULE 

MCM 


ODE 


ODK 


TRANS 


MOC 


BLM 


DESCRIPTION 


The Master Control Module is used to control the 
execution of TDK by selecting the computation 
modules to be exercised. The MCM is also used 
to process output files for the purpose of 
creating printed and plotted output. 

The One-Dimensional Equilibrium module is used 
to calculate ideal engine performance. Engine 
performance can also be calculated assumming 
that the chemical composition is frozen at 
chamber (stagnation) conditions. 

The One-Dimensional Kinetics module is used to 
calculate the loss in nozzle performance caused 
by finite-rate chemistry of the expansion 
products , 

The Transonic Flow module is used to calculate 
two-dimensional flow conditions in the throat 
region of the nozzle. It is used to obtain an 
initial data line for the MOC module. 

The Method of C har ac t er i s t i c s module is used to 
calculate the loss in nozzle performance caused 
by flow divergence, including the effects of 
chemistry and mixture ratio variation. 

The Boundary Layer Module is used to calculate 
the loss in nozzle performance due to a viscous 
boundary layer and its interaction with the 
nozzle wall. The effects of both drag and heat 
transfer are included. 
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FIGURE 4-2: SUGGESTED OVERLAY STRUCTURE TDK, VERSION 4.0 

APRIL 1985 
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2 A 

2B 

2C 

2D 

2 E 

2 F 


SEARCH 

THERMP 

DET0N 

FR0ZEN 

SHCK 


2G 


2H 


RKT0UT 

R0CKET 

VARFMT 

EQLBRM 

GAUSS 

MATRIX 


0DKINP 

0DWALL 

PACK 

SELECT 


3 A 


CHTYPE 

CONVRT 

ECNV1 

FNDLM 

MGET 

NUMBR 

PACKCD 

PRATES 

PREAX 

PRES 

REAXIN 

STOICC 

ST0RNU 

SUBNE 


MAIN1 D 

DERIV 

EF 

FLU 

GTF 

I AUX 

INT 

LESK 

OUTPUT 

PRNTCK 

TABGEN 


i»-4 


REACT 
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BLMAIN 

BLEDGE 

BLH 

BL0CKD 

BLPLTS 

BLSEG 

BLTABL 

BLW 

C0EF 

C0EF1 

CUBICB 

DI FF 

EDDY 

INPUTB 

I V PL 

LINI 

OUTPBL 

RBL 

READBL 

S0LV5L 

WRPROF 


PRINTS 

SAVPT 

SC K 

SETID 

SHCKA 

SHCKA 1 

SHCKL 

SHCKR 

SHCKW 

SHCKW1 

SH0CK 

STR ACE 

SUBILR 

TC ALC 

WLCALC 
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4.1 PROGRAM FILES 


The files used by TDK are listed in Table 4-1. For those 
files referred to by a Fortran variable name, the name is 
listed. The description of the file includes the name of the 
labeled common block in which the file name is communicated. 
Subroutines using the file are also listed. 

The type of file is indicated by the following codes: 

B binary 

F formated 

MS mass storage (saved) 

DA direct access 

TMS temporary mass storage 

For Univac machines, write statements to unit 50 must be 
replaced by PUNCH statements. 



Table 4-1 : 


Files Used by TDK 


Logical 

Unit 

5 

6 
8 

1 0 

1 1 * 

1 2 
1 3 
1 4 
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Fortran Type 

Variable 

Name 


Description 


Data input stream 
C0MM0N/NUCM3Q/ 


F 

IPUNIT F , TMS 


Printed output stream 

Initial Data Line file, $LINE, 
COMMON/PCHILF, 

Subroutine CHAR 


LU 


LUBLM 


LU0UT 


NU PLT 


NU PR0F 


Temporary input, 

COMMON/NUCM 30/, Subroutines 
MAIN, SAVDAT.CHAR, LTCPHS, 
ODES, OKDINP, REACT, REAXIN, 
TDK, TTAPE 


F, TMS, MS TDK-BLM interface data, 

COMMON/ BLM2/ .Subroutines 

BLKDTA, ODES, PRINT, PRINTS, 
ptab, readat, READBL. 

F, TMS, MS BLM-TDK interface data, 

Subroutines BLMAIN, BLW, RBL 

B , TMS BLM plots 

Subroutine BLMAIN 


B , TMS BLM plots 

Subroutine WRPR0F 
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15 * 


B , TMS , MS TDK restart 

Subroutines READAT , SAVDAT, 

MAIN 

DA Direct access file for variable 

mixture ratio option (1st pass) 
Subroutines FINDT, GETILV, GET I L 

DA Direct access file for shock 

option (1st pass) 

Subroutines GETPT, SAVPT 


Direct access file for shock 
option (2nd pass) 

Subroutine CNTR91 


19 

— 

DA 

20 

IRRED 

B.TMS 

21 

KREX 

B.TMS 


Same as 16, (2nd pass) 

Scratch data, Common/NTAPE/ , 
Subroutines BLKDTA, 0DKINP 
Initial li ne data, 

COMMON/NTAPE/ , 

Subroutines BLKDTA, CHAR, 

GETIL, GETILV, 0DKINP , PACK, 
SUBIL, TRAN, TSTDK 


23 


JT ABLE B.TMS 


TDE unit, COMMON / NT AP E 1 / , 
subroutines BLKDTA, 0DES, 
OUTPUT, TDK, TRAN 


25 


JANAF 


F, TMS, MS Thermodynamic data 

COMMON/CUTIL/ , Subroutines 
MAIN, TTAPE, 0DK, PACK, SEARCH 
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26 

KREAX 

B , TMS 

Scratch data, 

Subroutines 

REAXIN 

COMMON/CUTIL/ , 
MAIN, ODKINP, 

27 

KSTF 

F , TMS 

Scratch data, 

Subroutines MAIN 

COMMON/CUTIL/ , 
, PACK, SEARCH 

28 

IRREAD 

B , TMS 

Scratch data, 

COMMON/CUTIL/ , 


Subroutines MAIN, 0DKINP, 

REAXIN 


29* 

ITSTAB 

B , TMS , MS 

Transonic 

data , 

COMMON/CUTIL/ , 




Subrout ines 

MAIN , 

GET I L , 




GETILV, MAIN1D.TW0D 


50 

- 

F , TMS , MS 

Boundary 

layer 

edge 

data 




computed 

by TDK, 

TDE, or 

TDF . 




Subroutines PRINT 

, PRINTS 

, PTAB 


* Files 11, 15, and 29 must be saved if the 
IRSTRT - 1, is to be used on later runs. 


r e s t ar t 


option, 
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4.2 SUBROUTINE AND COMMON BLOCK CROSS-REFERENCES 


This section provides tables that contain cross-references 
for subroutines and common blocks. Referal to these tables, or 
their equivalent, is usually necessary if the program is to be 
modified . 

Table 4-2 lists in alphanumeric order each TDK subroutine. 
All modules are included. Opposite each subroutine name are the 
names of all subroutines that call the subroutine. 

Table 4-3 lists in alphanumeric order each TDK common block. 
Again, all modules are included. Opposite each common block 
name are the names of all subroutines that contain the common 
block . 

Tables 4-2 and 4-3 do not contain the names of system 
supplied subroutines, such as SIN, COS, or the 1/0 subroutines. 
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TABLE 4-2 SUBROUTINE ENTRY POINT CROSS-REFERENCES 


SUBROUTINE 

REFERRED BY 

• • • 



ATSHCK 

CNTR16 

CNTR21 

CNTR31 

CNTR4 1 

AXIS 

BLPLTS 




AXISPT 

CNTR14 

CNTRL 

CNTRL1 

SHCKA1 

BANDI 

NEWT 




B LEDGE 

BLMAIN 




BLH 

MAIN 




BLKDTA 





BLMAIN 

MAIN 




BLOCKD 





BLPLTS 

BLMAIN 




BLSEG 

BLMAIN 




BLTABL 

BLEDGE 

INPUTB 



BLW 

MAIN 




CHAR 

TDK 




CHECK 

ATSHCK 

AXISPT 

DSPT 

INPT 


INPTR 

INPTR1 

INPTRS 

INPTS 


WLPT 




CHTYPE 

PREAX 




CKEXIT 

CNTR2 1 

CNTR31 

CNTR41 

CNTRL1 


CNTRL2 




CKSHCK 

CNTRL1 




CNTR12 

CNTR91 




CNTR13 

CNTR91 




CNTR14 

CNTR91 




CNTR16 

CNTR91 




CNTR21 

CNTR91 




CNTR31 

CNTR91 




CNTR41 

CNTR91 

(SUBROUTINE NOT USED) 


CNTR91 

TDK 




CNTRL 

TDK 




CNTRL1 

CNTR13 

CNTR21 

CNTR31 

CNTR41 

CNTRL2 

CNTR12 

CNTR14 

CNTR16 

CNTR4 1 

COEF 

BLSEG 

IVPL 



COEF1 

BLSEG 




CONVRT 

PACK 




CPHS 

EQLBRM 

FROZEN 

HCALC 

OUT1 


ROCKET 

SHCK 



CRIT 

CHECK 

DSPT 

SHCKA1 

SHCKL 


SHCKR 

SHCKW1 



CUBIC 

WALL 




CUBICB 

BLTABL 




DERIV 

IAUX 

INT 

MAIN1D 


DETON 

ODES 




DIFF 

BLEDGE 




DSPT 

CNTRL 




ECNV1 

MGET 

PRATES 

REAXIN 


EDDY 

BLSEG 




EF 

DERIV 




EF2D 

SDERIV 




EFMT 

OUT1 




ENCALC 

SHOCK 

TCALC 



EQLBRM 

DETON 

ROCKET 

SHCK 

THERMP 


TPCALC 




ERRORZ 

CHAR 

CNTRL 

TDK 


FCALC 

TRAN 
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SUBROUTINE REFERRED BY . . . 


FIND 

CHAR 

IAUX 

PRES 

FINDT 

GETIL 

FLU 

DERIV 

FNDLM 

MGET 

FROZEN 

ROCKET 

FTHRST 

CNTR12 

CNTR21 

GAUELM 

SKPB1 

GAUSS 

EQLBRM 

GETIL 

TRAN 

GETILV 

TRAN 

GETPT 

CNTR12 

CNTR41 

GPF 

ATSHCK 

INPTR 

INSRT 

SHCKR 

SUBILR 

GPFKIN 

GPF 

GPFPG 

GPF 

GTF 

DERIV 

HCALC 

DETON 

IAUX 

INT 

INPT 

CNTRL 

INPTR 

CNTRL1 

INPTR1 

CNTR16 

INPTRS 

CNTR14 

INPTS 

CNTR13 

INPUTB 

BLMAIN 

INSRT 

CNTRL 

INT 

MAIN1D 

INTEXT 

CNTR12 

CNTR31 

ITER 

PRINT 

TSCALC 

ITER1 

ENCALC 

ITER2 

SHOCK 

ITER3 

ATSHCK 

IVPL 

BIMAIN 

LESK 

IAUX 

LINE 

BLPLTS 

LINI 

BLEDGE 

WRPROF 

LTCPHS 

MAIN 

MAIN 

MAIN1D 

ODK 

MATCH 

ODKBLM 

MATRIX 

EQLBRM 

MGET 

REAXIN 

MLCK 

CNTR12 

MRCK 

CNTR13 

MRCK1 

CNTRL1 

MUK 

ODKBLM 


CPHS 
MAIN ID 
PTAB 
GETILV 

ENCALC 

MUK 

STF 

GPFPG 

PACK 

THERM 

PRATES 

REAXIN 


CNTR13 

CNTR31 

CNTR14 

CNTR41 

CNTR16 

CNTRL2 


CNTR13 

CNTR14 

CNTR16 

INPTRS 

INPTS 

SUBILR 

AXISPT 

DSPT 

INPT 

INPTR1 

INPTRS 

INPTS 

SHCKA 

SHCKA1 

SHCKL 

SHCKW 

WLPT 

SUBIL 

SHCKW1 

SUBIL 

MAIN1D 

SAVE 

MAIN1D 

CNTRL2 

SHCK 



CNTRL1 

CNTRL2 

WLCALC 

CNTR14 

CNTR16 

CNTR21 

CNTR41 

PRINTS 

TCALC 

TRAN 


BLTABL 

INPUTB 

OUTPBL 

ROCKET 



CNTR14 

CNTR21 

CNTR16 
CNTR3 1 

CNTR41 

CNTR41 


ROCKET 


Jl -to 



SUBROUTINE 

REFERRED BY 

• • • 



NESK 

SINT 




NEWOF 

DETON 

ROCKET 

SHCK 

THERMP 

NEWT 

TRAN 




NUMBER 

BLPLTS 




ODES 

MAIN 




ODK 

MAIN 




ODKBLM 

ODK 




ODKINP 

ODK 




ODWALL 

ODKINP 




OMEGA 

ODKBLM 

ROCKET 



OUT1 

DETON 

RKTOUT 

SHCK 

THERMP 

OUT2 

DETON 

RKTOUT 

SHCK 

THERMP 

OUT3 

DETON 

RKTOUT 

SHCK 

THERMP 

OUTPBL 

BLMAIN 

BLSEG 



OUTPUT 

INT 

MAIN1D 

PRNTCK 


PACK 

ODK 




PACKCD 

REAXIN 




PLOT 

BLPLTS 




PLOTS 

BLPLTS 




PRATES 

REAXIN 




PREAX 

REAXIN 




PRES 

PACK 




PRINT 

CNTRL 




PRINTS 

CNTR12 

CNTR13 

CNTR14 

CNTR16 


CNTR21 

CNTR31 

CNTR41 

CNTRL1 


CNTRL2 




PRNTCK 

INT 

MAIN1D 



PROBLM 

MAIN 




PTAB 

TRAN 




RBL 

BLH 

BLW 



REACT 

ODES 




READAT 

MAIN 




READBL 

INPUTB 




REAXIN 

ODKINP 




RKTOUT 

ROCKET 




ROCKET 

ODES 




SAUER 

TRAN 




SAVDAT 

MAIN 




SAVE 

DETON 

ROCKET 

SHCK 

THERMP 

SAVPT 

CNTR12 

CNTR13 

CNTR14 

CNTR16 


CNTR31 

CNTR4 1 

CNTRL1 

CNTRL2 


SUBILR 

WLCALC 



SCALE 

BLPLTS 




SCK 

CNTR12 

CNTR14 



SDERIV 

GPFKIN 

SINT 



SEARCH 

ODES 




SELECT 

ODKINP 




SETID 

CNTR12 

CNTR13 

CNTR14 

CNTR16 


CNTR2 1 

CNTR31 

CNTR41 

CNTRL1 


CNTRL2 

SUBILR 

WLCALC 


SHCK 

ODES 




SHCKA 

CNTR12 

CNTR14 



SHCKA1 

CNTR13 




SHCKL 

CNTR13 

SHCKW 



SHCKR 

CNTR12 

CNTR14 

CNTR16 
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SUBROUTINE 

REFERRED BY 

• • • 



SHCKW 

CNTR13 




SHCKW1 

CNTR14 

CNTR16 



SHOCK 

ATSHCK 

SHCKA 

SHCKA1 

SHCKL 


SHCKR 

SHCKW 

SHCKW1 


SINT 

ATSHCK 

AXISPT 

DSPT 

INPT 


INPTR 

INPTR 1 

INPTRS 

INPTS 


SHCKA 

SHCKA1 

SHCKL 

SHCKR 


SHCKW1 

SUBIL 

SUBILR 

WLPT 

SKPB1 

ODWALL 

SKPB2 

WALL 


SKPB2 

ODWALL 

WALL 



SLP 

PACK 

TDK 

WALL 


SOLV5 

BLSEG 

IVPL 



SPLN 

CHAR 

CNTRL 

CPHS 

ENCALC 


FLU 

GPFPG 

IAUX 

MAIN1D 


MUK 

PACK 

PRES 

PTAB 


STF 

THERM 



STF 

CONVRT 

DERIV 

MAIN1D 

ODKBLM 

STOICC 

CONVRT 

PACK 



STORNU 

REAXIN 




SUBIL 

CNTRL 




SUBILR 

CNTR21 

CNTR31 

CNTR41 


SUBNE 

PRES 




SUMPRT 

MAIN 




SUMPRT1 

SUMPRT 




SYMBOL 

BLPLTS 




TAB6EN 

IAUX 

MAIN1D 



TCALC 

SHOCK 




TDK 

TWOD 




THERM 

ENCALC 

S DERIV 



THERMP 

ODES 




TIMERX 

CHAR 

CNTRL 

MAIN 

MAIN1D 


MLCK 

MRCK 

TRAN 


TPCALC 

TSCALC 




TRAN 

TWOD 




TRIM 

TRAN 




TSCALC 

ODES 




TTAPE 

MAIN 




TWOD 

MAIN 




UNIT 

MAIN 




VARFMT 

RKTOUT 




WALL 

CHAR 




WLCALC 

CNTR21 

CNTR3 1 

CNTR41 


WLPT 

CNTR13 

CNTRL 

CNTRL2 

SHCKW 1 


WLCALC 




WRPROF 

BLSEG 
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• 

labeled common 

TABLE 4-3 COMMON BLOCK 

CROSS-REFERENCES 



REFERRED By SUBROUTINE 

labeled COMMON 







REFERRED by subroutine 

A 

REAXIN 

STORNU 

PRATES 

BLCO 


BLEDGE 

ABMAPS 

PREAX 



8LSEG 

COEF 


MAIN 



COE FI 


TDK 



EDDY 

ABOUND 

FLU 

BLC1 


WRPROF 


CHAR 



IVPL 

AL 

gpfkin 



OUTPBL 

SOLV5 


blmain 



BISEG 


INPUTS 



COEF 


OUTPBL 



COE FI 

ABODE 

BLEDGE 

BLC2 


EDOY 

WRPROF 


MAIN 

8LKDTA 



OUTPBL 


OOES 



COE FI 


PACK 

BLC3 


EDDY 

— 

REACT 

SEARCH 



IVPL 


OETON 



SOLV5 


OOKINP 

OUT1 

BLC6 


BLSEG 

arprnt 

OUTPUT 

BLINTP 


SOLV5 

COEF 


OOES 

PROBLM 



BLOCKD 

AVGS 

OOKINP 

BLM1 


INPUTB 

BLEDGE 


REACT 

SUMPRT 



MAIN 


TWOO 



PROBLM 

BCON 

mainid 



READAT 

SAVDAT 


BLOCKD 



PRINT 


INPUTS 



PTAB 


READ8L 

BLH2 


PRINTS 

BLCO 

BLEDGE 



BLKDTA 


BLOCKD 



OOES 


blmain 



READAT 


INPUTB 



READBL 


IVPL 



OOKBLM 


OUTPBL 



TDK 


READBL 



PRINT 


SOLV5 

BLM3 


PTAB 

PRINTS 

— 
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OOES 



LABELED COMMON 


REFERRED BY SUBROUT I ME 


labeled common 


referred by subroutine 


BLM3 

BLM4 


BLMF 


BLMPLT 


BLMSPR 


ROCKET 

ODES 

OUT1 


Cl NT 


CKSHCK 


MAIN1D 
I AUX 
INT 
LESK 

CHAR 


OOK 

PROBLM 

SUMPRT 

BLOCKD 

BLMAIN 

inputs 

BLEDGE 

BLSEG 

WRPROF 

BLH 

BLW 

SUMPRT 

BLSEG 


CMAXIT 


COOTDK 


COEFFX 


TDK 

CHAR 

PRINT 

PRINTS 

MAIN 

OOK 

MAIN1D 

ODKINP 

TDK 

FLU 

SEARCH 

CPHS 


BLPLOT 

BLTK 

BLTKPR 

CCINT 

CDELHX 

CDELHY 

CDINTG 

CIN LIN 


BLMAIN 

BLSEG 

BLMAIN 

OUTPBL 

PROBLM 

SINT 

NESK 

MAIN 

ODES 

SAVE 

TWOD 

MAIN1D 

BLH 

OOES 

SAVE 

TWOO 

MA1N1D 

SUMPRT 
SUMPRT 1 
TRAN 


COM4 


C0M6 


COMCAS 


MAIN 

SUMPRT 

TRAN 

CHAR 

TRAN 
GET IL 
GET 1 LV 
SAUER 

MAIN 

BLW 

ODES 

PACK 

READAT 

SAVDAT 

SUMPRT 

CONVRT 

MAIN1D 

OOKBLM 

OOKINP 

OUTPUT 

PRES 

REAX IN 

SELECT 

ST F 

STORNU 


CHAR 


LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


COMCAS 


COMXP 


COMY 


SUMPRTl 

COMY 

OOKINP 

TRAN 


OUTPUT 

CHAR 


PRES 

CNTRL 


REAXIN 

DERI V 


STF 

DSPT 


TRAN 

EF 


CHAR 

FCALC 


DERI V 

FLU 


EF 

GETIL 


FLU 

GETILV 


GTF 

GTF 


I AUX 

I AUX 


INI 

I NPT 


SDl-RI V 

INT 


EF?D 

00 WALL 

CONST S 


PRATES 


MAIN 

PRINT 


LTCPHS 

PTAB 


ODES 

SINT 


SAVE 

SUBIL 


SUMPRT 

WLPT 


UNIT 

AXISPT 


CONVRT 

GPFKIN 


EQLBRM 

INPTR 


FROZEN 

INPTR1 


MAI N ID 

INPTRS 


OOKINP 

INPTS 


OUT 1 

NESK 


OUTPUT 

PRINTS 


RKTOUT 

SDERIV 


SUMPRTl 

SU8ILR 


TD< 

TCALC 


TPCALC 

THERM 


TRAN 

ATSHCK 


CHAR 

EF2D 


I AUX 

ENCALC 


OOWALL 

MAIN 


PRINT 

PTAB 

ODES 


WALL 

SUMPRT 


GPFPG 

TRAN 


PRINTS 

MAIN 

COOLC 

ENCALC 

PACK 


BLH 

READAT 


BLW 

SAVDAT 


1NPUTB 

CONVRT 

CPEES 


MAIN1D 


ROCKET 

ODKBLM 


CPHS 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


CPEES 

CPRNT 

CPUNCH 

CSPRXC 

CTRBDY 

CUTIL 


OUT1 


CUTIL 


MAIN 

PACK 

MAIN1D 

OOKINP 

INT 

OOWALL 


PRINT 

PRINTS 


MAIN 

PACK 

STOICC 

CONVRT CUALL 

REAXIN 

SELECT 

STORNU 


AXISPT 

CNTR14 

CNTRL1 

SHCKA 

SHCKA1 


MAIN 

OOES 

ODK 

PACK CWALL1 

REACT 

READAT 

ROCKET OASTOI 

SAVDAT 

SEARCH 

SPIN 

TTAPE 

TWOO 

CONVRT 

roue 

MAIN1D DELHN 

MUK 

OOKBLM 

OOKINP DFSAV 

OUT 1 

OUTPUT 

PRES 

REAXIN 

RKTOUT DIRACC 

SELECT 


STF 

TDK 

TRAN 

CHAR 

CNTRL 

FLU 

GETIL 

GET I LV 

I AUX 

PRINT 

SUBIL 

GPFPG 

PRINTS 

SUBILR 

THERM 

MAIN 

OOES 

PACK 

READAT 

SAVDAT 

MAIN1D 

OOKINP 

PRES 

CHAR 

FLU 

OOWALL 

PTAB 

WALL 

PROBLM 

WALL 

PACK 
READAT 
SAVDAT 
DERI V 
EF 

SDERIV 

EF2D 

BLH 

OOES 

OUTPBL 
SUMPRT 
COE FI 
SUMPRT 1 

TDK 
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LABELED common 
OIRACC 
DOLOOP 

DOUBLE 

EDGE 

ENDFLG 

ERR 


REFER R E D BY ^ROUTINE LABELED COHHON 


referred by subroutine 


CNTR91 ERft 

GETPT 

SAVPT 

MAIN 

READAT 

SAVDAT 

MAIN1D 

OOKINP 

PRNTCIC 

DERI V 

EF 

IAUX 

IMT 

SDERIV 

EF2D 


ODES 

SHCK 

EQLBRM 

GAUSS 

MATRIX 

OUT 1 


BLOCKD 

BLMAIN 

INPUTS 

OUTPBL 

BLEDGE 

BLSEG 

COE FI 

EDDY 

WRPROF 


EXTRAP 

FLAGS 


CNTR91 

PRINTS 


MAIN 

TTAPE 

TDK 

TRAN 

CHAR 

CNTRL 

DSPT 

GETIL 

GETILV 

I NPT 

PRINT 

SUBIL 

WALL 


FLOW2D 


FNALBT 


WLPT 

AXISPT 

CNTRT2 

CNTR13 

CNTR14 

CNTR16 

CNTRL1 

CNTRL2 

GPFPG 

INPTR 

INPTR1 

INPTRS 

INPTS 

PRINTS 

SDERIV 

SHCKA 

SHCKA1 

SHCKL 

SHCKR 

SHCKW 

SHCKW1 

SUBILR 

WLCALC 

ATSHCK 

ENCALC 

PACK 

CNTR91 

CNTR12 

CNTR13 

CNTR14 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRL 1 

CNTRL2 

PROBLM 

TRAN 

CHAR 

CNTRL 

FTHRST 

MAIN ID 
DERI V 
FLU 
IAUX 
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LABELED COMMON 


referred by subroutine 


LABELED COMMON 


REFERRED BY SUBROUTINE 


GBUC 


HTL 

SAVDAT 


BLOOCD 


OOKBLM 


B IMA IN 


CHAR 


IMPUTB 


GPFKI N 


OUTPBL 


GPFPG 


BLEDGE 




BLSEG 

H TOTAL 

INPUTB 


COE FI 


READBL 


EDDY 


BLEDGE 


URPROF 





HTPR 


GEOM 



BLW 


BLU 


PROBLM 


DOES 




PROBLM 

ICONT 

MAIN 


REAOBL 




SUMPRT 

ID I L 

SUB1LR 


ODKINP 




RKTOUT 

IDNO 

PROBLM 


TRAN 


CNTR91 


CHAR 


SETID 


PRINTS 

I HIT 


GEOMN 


CNTR21 


BLW 


CNTR31 


PROBLM 


CNTRA1 

GRD 



CNTRLl 


BLOCKD 




BLMAIN 

INDSEG 

BLSEG 


INPUTB 


COE FI 


I VPL 




OUTPBL 

INDX 

MAIN 


S0LV5 


OOES 


BLEDGE 


REACT 


BLSEG 


ROCKET 


CO€F 


SAVE 


COE FI 


SEARCH 


EDDY 


SHCK 

HHTCOM 



THERMP 


OOES 


CPHS 


EQLBRM 


DETON 

HTABLE 



EQLBRM 


INPUTB 


FROZEN 


BLEDGE 


GAUSS 

HTFLX 



HCALC 


BLMAIN 


MATRIX 


OUTPBL 


OUT 1 


BLSEG 


RKTOUT 

HTL 



TPCALC 


OOES 




PROBLM 

INDXX 

OOES 


READAT 


REACT 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


INDXX KINFO 



ROCKET 

SAVE 

SHCK 

THERMP 

CPHS 

DETON 

EQLBRM 

FROZEN 

GAUSS 

HCALC 

MATRIX 

0UT1 

RKTOUT 

TPCALC 


INERTS 

REAXIN 

SELECT 


IOFF 

PROBLM 

READBL 


IRRC 

CHAR 

INPTR 


IRSTRT 

MAIN 
PROBLM 
READAT 
SUMPRT 
SUMPRT 1 

LASTM 

ISPLN 

PROBLM 

SPLN 

LKEOKN 

IJSE 

MAIN 

LKMELT 


ODES 

ROCKET 

SAVE 

SEARCH 

SHCK 

THERMP 

CPHS 

DETON 

EQLBRM 

LOUTH 


FROZEN 

HCALC 

MATRIX 

0UT1 

RKTOUT 

SELECT 

Ml 


MAIN 

8LH 

00 ES 

PACK 

REACT 

READAT 

ROCKET 

SAVDAT 

SUMPRT 

TWOO 

FROZEN 

MAIN1D 

OOKINP 

0UT1 

OUTPUT 

PRES 

REAX1N 

RKTOUT 

SELECT 

TDK 

TRAN 

CHAR 

GETIl 

GET I LV 

PRINT 

PTAB 

PRINTS 

CNTR16 

CNTRL2 

ROCKET 

MAIN1D 
DERI V 

MAIN 

LTCPHS 

READAT 

SAVDAT 

CPHS 

STF 

THERM 

READAT 

SAVDAT 

SINT 

GPFKIN 

SDERtV 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


MACHDR 


MARKET 


MASFLU 


MESHC 


MESHCN 


MESHCW 


DERI V 
FLU 

MAIN 

OOES 

ODK 

PACK 

PR08LM 

READAT 

ROCKET 

TWOD 

CONVRT 

MAIN1D 

OOKINP 

OUTPUT 

REAX IN 

SELECT 

TDK 

TRAN 

CHAR 

FLU 

PRINT 

GPFPG 

PRINTS 

MLCK 

MRCK 

MRCK1 

SUBILR 

TDK 

CHAR 

CNTRL 

PRINT 

SUBIL 

MLCK 

MRCK 

MRCK1 

PRINTS 

SUBILR 


MESHCX 


HISC 


MISCT 


MI SCX 


CHAR 

CNTRL 

PRINT 

WALL 

WLPT 

PRINTS 

ATSHCK 

MAIN 

BLKDTA 

OOES 

PACK 

REACT 

ROCKET 

SAVE 

SEARCH 

SHCK 

THERMP 

CPHS 

DETON 

EQLBRM 

FROZEN 

HCALC 

MATRIX 

OUT1 

RKTOUT 

TPCALC 

BLOCKD 

BLH 

BLMAIN 

INPUTB 

OUTPBL 

READBL 

BLEDGE 

BLSEG 

COE FI 

EDDY 

WRPROF 


CHAR 

INPT 

INPTR 

SHCKL 

SHCKR 

CHAR 

WLPT 


OOES 

REACT 

ROCKET 

SAVE 

SHCK 

THERMP 

CPHS 

OETON 

EQLBRM 
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labeled common 


referred by subroutine 


labeled common 


REFERRED BY SUBROUTINE 


MI SCX 

frozen 

HCALC 

matrix 

MOLWTS 

RKTOUT 


ROCKET 

SEARCH 

MUST 

OUT1 


DERI V 

NAMBC 

FLU 


TRAN 

FCALC 

NAME 

SAUER 


SUMPRT 

SUMPRT 7 

TDK 

CHAR 

CNTR91 

CNTRL 

DSPT 

INPT 


PRINT 

SUBIL 

CNTR12 

CNTR13 

CNTRH 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRL1 

CNTRL2 

FTHRST 

INPTR 

INPTR1 

INPTRS 

INPTS 

MLCJC 

MRCK 

MRCK1 

PRINTS 

SHCKA1 

SHCKL 

SHCKR 

SHCKV1 

SUBILR 

WLCALC 


NAMEP 

TDK 

CHAR 

CNTRL 

DSPT 

INPT 

CNTR12 

CNTR13 

CNTR14 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRL1 

CNTRL2 

GPFPG 

INPTR 

INPTR1 

INPTRS 

INPTS 

MICK 

MRCK 

MRCK1 

SHCKA 

SHCKA1 

SHCKL 

SHCKR 

SHCKW1 

WLCALC 

CKSHCK 

NAMEQ ENCALC 

TDK 

CHAR 

CNTR91 

CNTRL 

DSPT 

INPT 

INSRT 

PRINT 

SINT 

SUBIL 

WLPT 

AXISPT 

CHECK 

CNTR12 

CNTR13 

CNTR14 

CNTR16 

CNTR21 
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labeled common 


referred by subroutine 


labeled common 


referred by subroutine 


NAMEQ 


NAMEQB 


NAMES 


CNTR31 

CNTR41 

CNTRL 1 

CNTRL2 

GPFKIN 

GPFPG 

INPTR 

INPTR1 

INPTRS 

INPTS 

MLCK 

MRCK 

PRINTS 

SHCKA 

SHCKAl 

SHCKL 

SHCICR 

SHCKU 

SHCKUI 

SHOCK 

SUBILR 

ULCALC 

ATSHCK 

CKSHCK 


NAMEV 


NAMEU 


CNTR12 

CNTR13 

CNTR14 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRL1 

PRINTS 

SHCKA 

SHCKAl 

SHCKL 

SHCKR 

SHCKU 

SHCKUI 

SHOCK 

ATSHCK 


NAMIN 


NCOl 


MAIN 

TRAN 

CHAR 

GETIL 

GETILV 

SUBIL 

SUBILR 


TRAN 

FCALC 

GETIL 

GETILV 

MAIN 

OOKINP 

TRAN 

CHAR 

CNTRL 

PRINT 

UALL 

ULPT 

CNTR12 

CNTR14 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRLl 

CNTRL2 

INTEXT 

PRINTS 

SHCKU 

ULCALC 

ATSHCK 

CKEX1T 

MAIN 

BLH 

PROBLM 

TUOO 

MA1N1D 

OOKINP 

TDK 

TRAN 

CHAR 

FCALC 

PRINT 

GPFPG 

PRINTS 

CNTRL 

ODUALL 

PRINT 

UALL 

CNTR21 

CNTR31 

CNTRLl 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


NCOI 


NDEBUG 

MLCK 

MRCK 

PRINTS 

NEUPRT 

TRAN 

FCALC 

NOOK 

BLW 

OOKINP 

NOINST 

OOK 

OOKINP 

NRXDIR 

CNTRL1 

INPTR 

MTAPE 

PACK 
CONVRT 
REAX IN 
PRATES 

NTAPE1 

BLKDTA 

PACK 

OOKINP 

TRAN 

CHAR 

GETIL 

GETILV 

SUBIL 

SUBILR 

NUCM30 

BLKDTA 

OOES 

OUTPUT 

TDK 

TRAN 


MAIN 

INPUT8 

LTCPHS 

OOES 

PROBLM 

REACT 

SHCK 

TTAPE 

OOKINP 

REAX IN 

TRAN 

CHAR 


NUCOM2 

ODES 

00 K 

PACK 

PROBLM 

ROCKET 

TWOO 

OOKINP 

OUTPUT 

TDK 

TRAN 

CHAR 

DSPT 

GPF 

I NPT 

OOWAIL 

PRINT 

PTAB 

SUBIL 

WLPT 

AXISPT 

GPFPG 

INPTR 

INPTR1 

INPTRS 

INPTS 

PRINTS 

SHCKA 

SHCKA1 

SHCKL 

SHCKR 

SHCKU1 

ATSHCK 

ENCALC 

NUC0M3 

MAIN 

ODES 

PROBLM 

READAT 

SAVDAT 

PRINT 

PTAB 

PRINTS 

NUC0M4 

BLKDTA 

PROBLM 

0UT1 

OUTPUT 

RKTOUT 

CHAR 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


NUC0H4 


OOKCOM 



PRINT 


MAIN 


PRINTS 


OOES 

NUC0M5 



OOK 


MAIN 


PACK 


OOES 


REAOAT 


TDK 


ROCKET 


TRAN 


SAVDAT 


CHAR 


CONVRT 

NUC0M6 



MAIN 10 


MAIN 


00K8LM 


TRAN 


OOKINP 


PRINT 


OUT 1 


CNTR21 


OUTPUT 


CNTR31 


PRES 


CNTR41 


PRNTCK 


PRINTS 


REAX IN 

NUC0M7 



RKTOUT 


MAIN 


SELECT 


OOES 


CHAR 


OOKINP 


DERIV 


OUT1 


EF 


TRAN 


FLU 


CHAR 


IAUX 

NUC0M8 



INT 


OOES 


PRINT 


CHAR 


PTAB 

NUCOMN 



SINT 


OOES 


PRINTS 


ROCKET 


SDERIV 


OUT1 


EF2D 

NUT 


OOKRX 



TDK 


MAIN 


GETIL 


PACK 

OAE 



READAT 


OOES 


SAVDAT 


PR06LH 


CONVRT 


OOKINP 


DERIV 


TRAN 


EF 

OOEOUT 



SDERIV 


ROCKET 


EF2D 


OUT1 

OOKSP 


OOERG 



MAIN 


OOES 


PACK 


ROCKET 


READAT 


OUT1 


SAVDAT 

OOESAV 



TWOD 


TWOO 


CONVRT 


MAIN1D 


MAINlD 


OUT1 


ODKBLM 


RKTOUT 





LA8ELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


ODKSP 


OPTION 


OUPT 


PATHL 


PCHILF 


PCTBL 

OOKINP 

OUTPUT PERF 

RE AX IN 

STF 

CHAR 

DERIV 

EF 

FLU 

GTF 

I AUX 

PRINT 

SUBIL 

GPFKIN PERFX 

GPFPG 

PRINTS 

SDERIV 

SUBILR 

THERH 

EF2D 

ENCALC 

INPUTS PEXIT 

PROBIM 

SUMPRT 

BLICDTA 

SHCK PLUMEC 

THERMP 

DETON 

FROZEN 

OUT1 

RKTOUT 

VARFMT 

EFMT 


READAT 

SAVDAT 

CNTRL 

SINT 

SUBIL 

SDERIV 

SUBILR 


POINTS 


CHAR 


PCTBL 

READAT 

SAVDAT 

SUMPRT 

OUT1 

TRAN 


PTAB 

MAIN 

OOES 

ROCKET 

SHCK 

DETON 

EQLBRM 

FROZEN 

OUT1 

RKTOUT 

TPCALC 

OOES 

ROCKET 

SHCK 

DETON 

EQLBRM 

FROZEN 

OUT 1 

RKTOUT 

SUMPRT 
SUMPRT 1 
CNTR91 
CNTRL 

SUMPRT 

TWOO 

CHAR 

CNTRL 

PRINT 

CNTR21 

CNTR31 

CNTR41 

PRINTS 

MAIN 

ODES 

ROCKET 

SHCK 

THERMP 

DETON 

EQLBRM 

FROZEN 

HCALC 

MATRIX 

OUT 1 

RKTOUT 

TPCALC 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


POINTS 

POINTX 


PPPXX 


PRES 


PRFGAS 


CHAR 

PRNTRX 

BLPLTS 


PTABLE 


OOES 


MAIN1D 

ROCKET 


ODKINP 

SHCK 


PRES 

THERMP 


FLU 

DETON 


IAUX 

EQLBRM 

PTSAVE 


FROZEN 


MAIN 

HCALC 


OOES 

MATRIX 

PUNCHC 


RKTOUT 


PROBLM 

CHAR 


PRINT 

PTAB 

CNTRL 


PRINTS 

SUBILR 

RATES 


BLMAIN 


ODKINP 
REAX IN 

INPUTB 


PRATES 

BLEDGE 

RDCARD 


COEF 


MAIN 

COEF1 

RDIREX 


EDDY 


MAIN 

MAIN 


OOES 

PACK 

PROBLM 


SEARCH 

SUMPRT 


STOICC 

TUOO 


CONVRT 

TDK 


REAX IN 

CHAR 


SELECT 

DSPT 


PRATES 

GPF 

RELPOT 


I NPT 


BLW 

PRINT 


PROBLM 

SINT 


SUMPRT 

WLPT 


SUMPRT 1 

AXISPT 

REPEAT 


INPTR 


MAIN 

INPTR1 


ODES 

INPTRS 


PROBLM 

INPTS 


READAT 

PRINTS 


OOKINP 

SHCKA 


TDK 

SHCKA1 


CHAR 

SHCKL 


CNTR91 

SHCKR 


GETIL 

SHCKW1 


GET I LV 

AT SHCK 


PRINT 

ENCALC 


PTAB 



REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REPEAT 

RLMNR 

RVACOM 

SAVOOE 

SAVPRI 

SCLFTR 

SCRJT1 

SHCK1 

SHCK2 

SHGAMA 


PRINTS 

BLMAIN 
COE FI 

MAIN10 

OOKINP 

OUTPUT 

INT 

MAIN 

OOES 

SUMPRT 

PRINTS 

INPUTB 

READBL 

BLEDGE 

ODES 

PROBLM 

SUMPRT 

CHAR 

CNTR91 

VLPT 

CNTR41 

CNTRL1 

PRINTS 

SUMPRT 

CHAR 

WLPT 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

PRINTS 

MAIN 

OOK 

PROBLM 

SUMPRT 

OOKINP 

TDK 

CHAR 

DERIV 

SINT 

SDERIV 


SHOCKC 

SKIP 

SPECES 


SPEC EX 


SPINFO 


PROBLM 

SUMPRT 

TDK 

TRAN 

CHAR 

CNTRL1 

INPTR 

ODES 

ROCKET 

SAVE 

SEARCH 

SHCK 

THERMP 

CPHS 

DETON 

EQLBRM 

FROZEN 

HCALC 

MATRIX 

OUT1 

RKTOUT 

OOES 

ROCKET 

SAVE 

SHCK 

THERMP 

CPHS 

DETON 

EQLBRM 

FROZEN 

HCALC 

MATRIX 

RKTOUT 

MAIN 

BLMAIN 

OOES 

PACK 

ROCKET 

SEARCH 

SHCK 

SUMPRT 

CPHS 

EQLBRM 

OOKINP 

OUT1 
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LABELED COMMON 


REFERRED BY SUBROUTINE 


LABELED COMMON 


REFERRED BY SUBROUTINE 


SPINFO 


SSUMS 


STREAM 


TABL 


TABS 


TBLDT1 


TBLDT2 


TBLDT2 


RKTOUT 

SELECT 

SUMPRT1 

PTAB 

ROCKET 

OUT1 


TBRSAV 


OOES 

SUMPRT 

TWOD 

MAIN1D 

TRAN 

CHAR 

GETIL 

GETILV 

GPFKIN 

BLOCKD 

INPUTB 

OUTPBL 

READBL 

BLEDGE 

COEFl 

WRPROF 

BLHAIN 

OUTPBL 

BLSEG 


TDKKAX 


MAIN 

OOES 

PROBLM 

READAT 

SAVDAT 

MAIN1D 

ODKBLM 

OOKINP 

TRAN 

GETIL 

GETILV 

IAUX 

PRINT 

PTAB 

PRINTS 


MAIN 

OOES 

READAT 

SAVDAT 


MAIN1D 

OUT1 

IAUX 

PRINT 

PTAB 

PRINTS 

OOKINP 
REAX IN 
SELECT 

TDK 

CHAR 

CNTRL 

DSPT 

INPT 

INSRT 

PRINT 

SUBIL 

WLPT 

AXISPT 

CNTR12 

CNTR13 

CNTR14 

CNTR16 

CNTR21 

CNTR31 

CNTR41 

CNTRL 1 

CNTRL2 

FTHRST 

GETPT 

GPFKIN 

GPFPG 

INPTR 

INPTRl 

INPTRS 

1NPTS 

INTEXT 

PRINTS 

SAVPT 

SHCKA 

SHCKAl 

SHCKL 

SHCKR 

SHCKW 

SHCKW1 

SUB1LR 

ULCALC 

ATSHCK 
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referred by subroutine 


LABELED COMMON 


referred by subroutine 


LABELED COMMON 


TEMP 



BLSEG 

TEQEC 

EDDY 

THISPT 

ODES 

THMO 

ROCKET 


BLOCKD 

BLMAIN 

INPUTS 

IVPL 

OUTPBL 

READBL 

BLEOGE 

BLSEG 

COE FI 

THRST 

EDDY 

TOTSC 

FTHRST 


MAIN 

READAT 

SAVDAT 

MAIN1D 

TRAN 

FCALC 

GETIL 

GETILV 

TSTABL 

IAUX 


MAIN 

READAT 

SAVDAT 

TUOO 

MAIN1D 

GETIL 

GETILV 

TTOIC 

IAUX 


ODK 

TW1 

OUTPUT 

TWOPHZ 

INPUTB 


PACK 

CONVRT 

MAIN1D 

ODKINP 

OUTPUT 


WALL 

BLOCKD 

BLMAIN 

INPUTS 

OUTPBL 

SOLV5 

BLEDGE 

BLSEG 

COEF 

COE FI 

WALLTM 

EOOY 


BLOCKD 

INPUTB 

WTYPE 

BLEOGE 


8LU 

PROBLM 

SUMPRT 

XTNDED 

SUMPRT 1 


BLOCKD 

BLMAIN 

INPUTB 

READBL 

YSAVE 

BLEDGE 


BLSEG 

ZDEBUG 

URPROF 


REAOAT 
SAVDAT 
STF 
DERI V 

ZLAST THERM 

SUMPRT 

TOK 

CNTRL 

PRINT 

CNTRL1 

CNTRL2 

ZTRAN PRINTS 

MAIN 

READAT 

SAVDAT 

TUOO 

MAIN1D 

TRAN 

GETIL 

GETILV 

IAUX 

INT 
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5. PROGRAM SUBROUTINES 


This section contains descriptions of the TDK subroutines. 
TDK is organized into 6 modules, as follows: MCM, 0DE, 0DK, 

TRANS, M0C, and BLM. The subroutines descriptions are presented 
by modules, i.e., the MCM subroutines are given in Section 5-1 
the 0DE subroutines afe given in Section 5-2, etc. At the 

present time, complete descriptions are not available for all of 
the M0C subroutines. 
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5.1 


MCM SUBROUTINES 


The Hester Control Module is used to control the execution 
or TDK by selecting the computation modules to be exercised. 
The MCM is also used to process output files for the purpose of 
creating printed and plotted output. The MCM consists of the 

following subroutines: 

MAIN 
BLKDTA 
FIND 
GAUELM 
ITER 
LTCPHS 
MATCH 
MUK 
OMEGA 
P ROB LM 
READAT 

MAIN provides the entry point to TDK and Is the master 
subroutine for the entire program. 


SAVDAT 

SKPB1 

SKPB2 

SLP 

SPLN 

SUMP RT 

TTAPE 

UNIT 
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5.1.1 PROGRAM MAIN 


This is the main program for TDK and as such provides 
communication between modules, defines the upper level labeled 
common blocks, and initializes certain logical control 
variables. MAIN calls the thermodynamic tape generation 
subroutine, TTAPE , as required. Subroutine PR0BLM is called to 
read the $DATA namlist and determine the sequence of modules to 
be executed. Subroutines 0DE and 0DK are called to perform 
equi 1 i br i um/ frozen and one dimensional kinetic calculations. 
Subroutine TW0D is called to perform transonic and two 
dimensional method of characteristics calculations. Subroutine 
BLMAIN is called to perform the boundary layer calculations. 
Subroutine BLW is called to calculate the displaced nozzle wall. 
Subroutine BLH is called to calculate the increase in 
propellant enthalpy contributed by the regenerative cooling 
circuits. The 0DE, 0DK , TRANS, and MOC calculations are then 
repeated if the repeat option has been specified. 
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5.1.2 SUBROUTINE BLKDTA 

„, ri . b . . . contains atomic data stored In AT0M(1,J) and many of the 

bias used with the variable format, FMT. The ATOM variables are defined in 

ZTand TT 3 ‘ f ° ra8t ~ eS « *» ^ common labe d 

9UPT and are described here. 

in the f, A ,“ l0mat "" USed 50 that 0ne £omat ■ could be used 

the siz f7h ' Wlt ” ChanSeS m 018 nUmber °‘ deC ‘ mal places according to 
° ® , ’ umbers • The toraiat is used to print a label and from 1 to 13 

soclated numbers. The labels contain 14 alphanumeric characters stored In 
four words and printed with 3A4 A? tt, _ 

FMT is lniti.il * 4 ' ^ b6rS 3re 311 Prlnted * a **** of 9. 

rMT is initially set In BLKDTA as follows: 


(1) (2) (3) (4) (5) (6) 

(1 H , 3A4 , A2 r F9 . 0 , F9 . 

FMT (12) (13) (14) (15) (16) 

F9 - 0, F9. 0, F9. 

FMT (22 > (23) (24) (25) (26) 

F9 * F9 . 0, F9 . 


(7) 

(8) 

(9) 

(10) 

(11) 

0, 

F9 . 

o, 

F9. 

o, 

(17) 

(18) 

(19) 

(20) 

(21) 

o, 

F9. 

o. 

F9. 

0 , 

(27) 

(28) 

(29) 

(30) 


0 , 

F9 . 

0 

) 



where the spaces are stored as blanks. 

Some variables set in BLKDTA 
Variable: F0 FI F2 F3 F4 F5 

Storage: 0, 1, 2, 3, 4, 5, 

The following is a list of variables used as labels and printed with 
3A4, A2 in FMT: 


to modify FMT are as follows: 
FB FMT 13 FMT9X FMT19 
9X, 19, 
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Variable 

Stored label 

FP 

P, ATM 

FT 

T, DEG K 

FH 

H, CAL G 

FS 

S, CAL/(G) (K) 

FM 

M , MOL WT 

FV 

(DLV/DLP) T 

FD 

(DLV/DLT) P 

FC 

CP, CAL/ (G) (K) 

FG 

GAMMA (S) 

FL 

SON VEL, M/SEC 

FR1 

PC/P 

FC1 

CF 

FN 

MACH NUMBER 

FR 

CSTAR, FT/SEC 

FI 

ISP, LB-SECAB 

FA 

IVAC, LB-SECAB 

FA1 , FA2 

AE/AT 


5.1.3 SUBROUTINE FIND 


This subroutine locates the index, I, in a table such that 
X(I) £ X £X(I+1). 
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5.1.4 Subroutine GAUELM( A, B. X , N,M,M)IM. MPIM.LDIM.EPS. KERR ) 


This subroutine solve a linear system of equations using Gaussian elimination 
with row In ter change. The equation is put in matrix form as: 

A X - B 

where A.B and X are matrices of proper dimensions. 

Calling Sequence 

A,B,X Matrices coefficients 

N.M Dimensions used: A(N, N) , X(N,M), B(N,M) 

NDIM Maximun row dimension of A 

MOIM Maximun row dimension of B 

LDIM Maximun row dimension of X 

EPS Lower bound for the absolute value of the pivot 

KERR Error indicator .nonzero means error 
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5.1.5 


SUBROUTINE ITER (FI. XI. XNEW. 


The purpose of this subroutine is to find the root or zero of the 
algebraic equation 

fCX) =0 

using the method of secant or false position. In particular this subroutine 
is designed to take advantage of the fact that the secant method will always 
nd the root of the above equation If the root has been spanned. 

Calling Sequence? 

F1 the* value* of XI U ' e dependent ™rlable, t. corresponding to 

is the value of the Independent variable, X, which corresponds 


XI 


XNEW 

N00 


is the predicted or new value of the independent variable 
is a flag such that 

N00 = -l the first time ITER is called. 

N00 = +1 U pon subsequence calls. 

Restrictions- 

S«ks“ade“n P T T ER. t0 ^ fOT °° nVer » en « - there are no Internal 
Method: 

Subroutine ITER utilizes the secant method predictor formula 

x w" x r f i ■ «r^.i)/(f, - f,_,) 

where the subscript 1 refers to the current value of X and f 
except for the first Iteration In which the value of X Is perturbed only slightly 
When the root has been spanned the subroutine saves 2 back value of f and X 

in order that the root may always be straddled and thus found. The linkage to the 

! S S ;' • - ‘he root are known, then the value of 

XNEW may be disregarded and bounded values may be used for the first two 

guesses, nns type of linkage necessitates that the value of XI must be set 
equal to XNEW or the bounded value of X. In order to speed up convergence 

of 10 S Zr ^ b0Und ' d ° maIn ° f ,h6 dePe ” dent “«* d * a ratio 

Of 10. then the new value ol X Is set equal to one half of the range 
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5 . 1.6 


SUBROUT INE_LTCPHS 


the low temperature 


H, 


This subroutine processes the low -p 

, «« o descr i bed in d6 1 3 * i 

Thermodynamic Data extension input 

Section 6 . 1 . 


5 . 1.7 


SUBROUTINE .MATCH 


. . i «, called by ROCKET to supply subroutine MUK 
This subroutine is called oy 

„ _ f internal sequence numbers which point 
with a vector of interna 4 calculate 

. iate Lennard-Jones parameters used by MUK to 
aPP P The input to MATCH is the species name 

transport properties. index 

(from the SUB array) and the output corresponds 

numbers in the table in the MUK write up. 
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5.1.8 Subroutine MUK (CP. XW. T. C. TT , N . XM , XMT , TK.- BR) 


This routine calculates the viscosity, thermal conductivity and Prandtl number 


for a gas composed of a 

mixture of species. 


CALLING SEQUENCE: 

CP 

is an array of N specific heats of the 
species (ft?/sec a R) 

(INPUT) 

XW 

Is an array of N molecular weights of 
the species (slug/slug mole) 

(INPUT) 

T 

is the temperature of the gas (*R) 

(INPUT) 

C 

is an array of N mass fractions of the 
species 

(INPUT) 

IT 

0 

is an array of N indices of the species 
into a table of collision diameter (cr) 
and energy of attraction (c/k) 

(INPUT) 

N 

is the number of species in the gas 

(INPUT) 

XM 

is an array of N viscosities of the 
species ^(lbf* sec/ft 3 ) 

(0UTPUT) 

XMT 

is the total viscosity of the gas, 
(lbf* sec/ft 2 ) 

(0UTPUT) 

TK 

is the thermal conductivity of the gas. 
(ft.lbf/ft 2 sec (°R/ft)) 

(0UTPUT) 

PR 

is the Prandtl number of the gas. 

(0UTPUT) 

Method: 

c p * 

N 

E C l C p 
i=l 1 p i 

Specific Heat 

M 

w 

U — v~~ 

s r 

1=1 w. 

Molecular Weight 
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M 

n w 

c i * TT 
w 


1 


T/1.8 

vtm; 


table (T*) 


table (i) 


ay M T 

4.15822x10 "°V W i 

57V 

1 / 1 + N Vl/2 
i* 1 \ 1 + T^ 




1/2 


N 

s 

1*1 


/ N x l 

M. ( 1 +S -g- 

1 ' j*i *j *1 

J^i 


-1 


Mi « , P. 

T3 (.45 + 1.32 £7Ef-)) 

v ' Wj' 


N 

s 

1*1 


/ N 

K, 1 + 1.065 S 
1 \ j*l 

1*1 



¥ 


table of n vs T* 


table of a and «/k 
vs. individual 
species 



2 


viscosity of the gas 


thermal conductivity 


Prandtl number 
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Equations for and /i 1 are from Reference l 1 *, The values of the collision 
Integral are from Table 2 of Appendix B In Reference 15* The relations used 
to calculate /j and K of the mixture are from Reference® 15 and 16, respectively. 

Also from Reference 1^ are the values of the collision diameters, o, and 
energy of attraction, e/k. 

Table 5-1 correlates the chemical name of the SDecies to the internal number 
assigned to it by the subroutine. Also included is the key-punch 
name assigned to the species, since lower-case letters and subscripts are 
non-standard features in most computer configurations. 


Svehla , R. H. , "Estimated Viscosities and Thermal Conductivities 
of Gases at High Teraperagures" , NASA TR R-132, 1962. 

R«f 15, Bird, R. B., Stewart, W.E., Lightfoot, E.N., Transport Phenom- 
ena. , John Wiley & Sons. Inn. New York. I960. ~ 

Ref .16 . Mason, E. A., and Saxena, S. C., Physics of Fluids. Volume 1. No. <5. 
pp. 361-369, 1953. J 



Table 5-1: SPECIES NAMES AND IDENTIFIERS 


Species 

Number 

Chemical 

Name 

Key Punch 
Name 

1 

A1 

AL 

2 

A1C1 

ALCL 

3 

AlCla 

ALCL3 

4 

A1F 

ALF 

5 

A1F 3 

ALF3 

6 

AIN 

ALN 

7 

AlO 

ALO 

8 

A1S 

ALS 

9 

Ala 

AL2 

10 

Air 

AIR 

11 

Ar 

AR 

12 

As Ha 

ASH3 

13 

B 

B 

14 

BBr 3 

BBR3 

15 

BC1 

BCL 

16 

BC1 3 

BCL2 

17 

BCla 

BCL 3 

18 

BF 

BF 

19 

BF a 

BF2 

20 

bf 3 

BF3 

21 

Bla 

BI3 

22 

BO 

BO 

23 

B(OCHa) 3 

B(OCH3)3 

24 

Ba 

B2 

25 

BaHe 

B2H6 

26 

B 3 O 3 

B203 

27 

Be 

BE 

28 

BeBr a 

BEBR2 

29 

Bed 

BE CL 

30 

BeCla 

BECL2 

31 

BeF 

BEF 

32 

BeFa 

BEF 2 

33 

Bela 

BEI2 

34 

Bea 

BE2 
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Species 

Chemical 

Key Punch 

Number 

Name 

Name 

35 

Br 

BR 

36 

BrF 

BRF 

37 

BrF 3 

BRF3 

38 

BrO 

BRO 

39 

Br a • 

BR2 

40 

C 

C 

41 

CBrF 3 

CBRF3 

42 

CBr 4 

CBR4 

43 

CC 1 

CCL 

44 

CC 1 F 3 

CCLF3 

45 

CCI 2 

CCL 2 

46 

cci 3 f 3 

CCL 2 F 2 

47 

C 013 

CCL3 

48 

CC 13 F 

CCL3F 

49 

CCI* 

CCL 4 

40 

C F 

CF 

51 

CF a 

CF 2 

52 

cf 3 

CF3 

53 

cf 4 

CF4 

54 

CH 

CH 

55 

CHBrCIF 

CHBRCIF 

56 

CHBrCl 2 

CHBRCL 2 

57 

CHBr 3 

CHBR3 

58 

GH Cl F a 

CHCLF 2 

59 

CHCI3 

CHCL3 

60 

chf 3 

CHF3 

61 

CH 3 BrCl 

CH2BRCL 

62 

CHgClF 

CH2CLF 

63 

CH a CL a 

CH2CL2 

64 

CH a F s 

CH2F2 

65 

CH 3 I 3 

CH 2 I 2 

66 

CH 3 Br 

CH3BR 

67 

CH 3 CI 

CH3CL 
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Species 

Number 

Chemical 

Name 

Key Punch 
Name 

68 

ch 3 f 

CH3F 

69 

CH 3 I 

CH3I 

70 

CH 3 OH 

CH30H 

71 

CH* 

CH4 

72 

CN 

CN 

73 

CO 

CO 

74 

COS 

COS 

75 

COa 

CO 2 

76 

CP 

CP 

77 

CS 

CS 

78 

CSa 

CS2 

79 

Ca 

C2 

80 

C 3 H 3 

C2H2 

81 

CaH 

C2H4 

82 

CaHe 

C 2 H 6 

83 

CaHgCl 

C2H5CL 

84 

CaHeOH 

C2H50H 

85 

CaNa 

C2N2 

86 

CH 3 OCH 3 

CH30CH3 

87 

CH a CHCH 3 

CH2CHCH3 

88 

CH 3 CCH 

CH3CCH 

89 

cyclo-CsHe 

CYCLO-C3H6 

90 

CaHe 

C3H8 

91 

n-CaH^OH 

N-C3H70H 

92 

CH 3 COCH 3 

CH3COCH3 

93 

CH 3 COOCH 3 

CH3COOCH3 

94 

n- G4H10 

N-C4H10 

95 

iso-C 4 Hio 

ISO-C4H10 

96 

CaHsOCaHg 

C2H50C2H5 

97 

CHaCOOCaHs 

CH3COOC2H5 

98 

n-C 5 H 12 

N-C5H12 

99 

C(CH3)4 

C(CH3)4 

100 

CeHe 

C 6 H 6 
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Species 

Chemical 

Key Punch 

Number 

Name 

Name 

101 

C a Hja 

C6H12 

102 

n- Cg Hi 4 

N-C6H14 

103 

Cd 

CD 

104 

Cl 

CL 

105 

C1CN 

CLCN 

106 

GIF 

CLF 

107 

C1F 3 

CLF3 

108 

CIO 

CLO 

109 

Cla 

CL 2 

110 

F 

F 

111 

FCN 

FCN 

112 

Fa 

F2 

113 

H 

H 

114 

HBr 

HBR 

115 

HCN 

HCN 

116 

HC1 

HCL 

117 

HF 

HF 

118 

HI 

HI 

119 

HS 

HS 

120 

Ha 

H2 

121 

H a O 

H20 

122 

HaOa 

H202 

123 

HsS 

H2S 

124 

He 

HE 

125 

Hg 

HG 

126 

HgBr 3 

HGBR2 

127 

HgCla 

HGCL2 

128 

Hgla 

HGI2 

129 

I 

I 

130 

IC1 

I CL • 

131 

la 

12 

132 

Kr 

KR 

133 

Li 

LI 

134 

LiBr 

LIBR 
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Species 

Chemical 

Key Punch 

Number 

Name 

Name 

135 

LlCN 

LICN 

136 

LI Cl 

LI CL 

137 

LlF 

LIF 

138 

Lll 

LII 

139 

LlO 

LIO 

140 

Lia 

LI2 

141 

Ll a O 

LI20 

142 

Mg 

MG 

143 

Mg Cl 

MGCL 

144 

MgCla 

MGCL2 

145 

MgF 

MGF 

146 

MgF a 

MGF2 

147 

Mg a 

MG2 

148 

N 

N 

149 

NFa 

NF3 

150 

NH 

NH 

151 

NHg 

NH3 

152 

NO 

NO 

153 

NOC1 

NOCL 

154 

N a 

N2 

155 

NaO 

N20 

156 

Na 

NA 

157 

NaBr 

NABR 

158 

NaCN 

NACN 

159 

Naa 

NACL 

160 

NaF 

NAF 

161 

Nal 

NAI 

162 

NaO 

NAO 

163 

NaOH 

NAOH 

164 

Naa 

NA2 

165 

Na a O 

NA20 

166 

Ne 

NE 

167 

O 

0 

168 

OF 

OF 
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Species 

Number 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 


Chemical 

Name 

OF a 

OH 

Oa 

P 

PCI 

PCla 

PF 

pf 3 

PH 3 

PN 

PO 

PS 

P 3 

P 4 

s 

SFs 

50 
SO a 
Sa 

S3F2 

51 

SI GLi 

SiCLi 

SiF 

SiFCla 

SiF Cl 
a a 

SiF 3 Cl 

SiF* 

SiH*. 

SiO 

SiO a 

SIS 

Sia 

SnBra 

SnCl* 

UF a 

Xe 

Zn 


Key Punch 
Name 

OF2 

OH 

02 

P 

PCL 

PCL3 

PF 

PF3 

PH3 

PN 

PO 

PS 

P2 

P4 

S 

SF6 

50 
S02 
S2 

S2F2 

51 

SICL 
SI CL 4 
SIF 

SIFCL3 

SIF2CL2 

SIF3CL 

SIF4 

SIH4 

SIO 

SI02 

SIS 

SI2 

SNBR2 

SNCL4 

UF6 

XE 

ZN 
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5 • 1 • 9 Subroutine OMEGA 

This subroutine calculates the exponent, used In the viscosity-temper- 


ature relationship 


^ (a) 

^ref ( T^ * 


using the method of least squares. That Is, It calculates the value of li} which 
gives the smallest sum of the errors squared. This form of the viscosity-temper- 
ature relationship was selected since the BIM module requires 
viscosity data In this manner. 

In order to supply the maximum amount of accuracy and also to minimize the 
variation In data due to the selection of an exit area ratio. It was decided to match 
the throat value of viscosity exactly and select an w which would provide the best 
fit for viscosity at the chamber and exit of the motor. 

The form of the error, E, was taken to be 


E = In u/ji* - to In T/T* 

Squaring the errors, differentiating with respect to to , and setting the results 
equal to zero, yields the following value for to 

w * (In T/T* in „/„* + In T/T* In 4 /„*)/(ln T/T*) 2 * (In T/T*) 2 ) 


where 

T * temperature 
H = viscosity 

e = refers to the exit plane 
c = refers to the chamber 
* = refers to the throat plane 
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5.1.10 SUBR OUTINE .PROBLEM 

Subroutine PROBLEM sets those default values that are 
concerned with the computational options of the program, such as 
the module execution flags (ODE, 0DK, TDK, BLM, TDE, IRPEAT, and 
IRSTRT). The $ DATA namlist is read (see Section 6.). Flags 
controlling the sequence of module execution are set as 
determined by the options requested through the $DATA input. 
Nozzle geometry parameters are placed into the GEOM array for 
communication to the various modules. 


5.1.11 SUBROU T INE RE ADAT(NTAPE) 

Subroutine READAT is called by Program MAIN to read data 
written by subroutine SAVDAT on unit NTAPE (-15) for the purpose 
of restarting the ODE and ODK modules. 

5.1.12 SUBRO UTINE SAVD A T (NT AP.E) 

Subroutine SAVDAT is called by Program MAIN to write data on 
unit NTAPE (-15) to be used later for restarting the ODE and ODK 
modules. This data is read later by subroutine READAT. 
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5 . 1.13 Subroutine SKPBl(XA,YA,XE,YE,THA t THR.Cl,01,El) 


This subroutine computes the coefficients for the skewed parabola defined by 
two points and the tangent at one of these points and the axis angle. The equation 
of a skewed- parabola is 


(Y-tan(Tr) X) 2 + CX + 0Y + E»0 


where Tr is the axis angle. 


The subroutine solves for the coefficient C,0 and E by using the condition on 
the two points and their tangents. The resulting equations form a linear system of 
3 equations in 3 unknowns which is solved by Gaussian elimination with improvement 
correction using subroutin GAUELM. 


Calling sequence: 


XA,YA coordinates of attachment point 

XE.YE coordinates of nozzle exit lip 

THA attachment angle 

THR axis angle > Tr 



THE 
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5.1.14 Subroutine SKPB2(XA,YA.XE,YE,THA.THE,B1,C1.D1,E1) 


This subroutine computes the equation for a skewed parabola defined by two 
points and their tangents. The equation for a skewed parabola is 

(B X+Y) 2 + CX + DY + E- 0 

Subroutine SKPB1 and the secant method are used to solve for the axis angle 
that gives rise to the given exit lip angle. 


Calling sequence: 

XA,YA coordinate of attachment point 

XE.YE coordinate of exit lip point 

THA attachment angle 

THE exit lip angle 

B1,C1, coefficients B, C, 0 and E 

01, El in above equation 
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5.1.15 SUBROUTINE SLP (X, Y, N, MFLAG, YP, Wl, W2 , W3, IF LAG) 

The purpose of this subroutine Is to supply derivatives for a tabulated 
function. The end point derivatives may be specified or are calculated Inter- 
nally by parabolic interpolation. Interior point derivatives may be found by 
a cubic spline fit procedure. 

Galling Sequence : 

X is a table of independent variables, x^ 

Y is a table of the dependent variables, y t 

N Is the number of entries in each of the tables X, Y, and YP. 
1=1, . . .N 

MFLAG this entry is a flag, m, such that 

m > 0 implies x is equally spaced 

m < 0 implies x is not equally spaced 

[mi = 1 y' will be continuous 
[ m| = 2 y' and y" will be continuous 
YP is a table of the derivative, y' t 
Wl working storage of length N 
W2 working storage of length N 
W3 working storage of length N 
IF LAG this entry is a flag, i, such that 

1 = o 


below: 


implies value for YP(1) and YP(N) will be calculated 
internally by parabolic differencing 

1 = 1 implies values for YP(1) and YP(N) will be input 

Method 

The cubic spline fit procedure utilizes the interpolation formula given 


y = A(x - x q ) 3 + B(x - x q ) 2 + C(x - x q ) + D 

y' = 3A(x - x q ) 2 + 2B(x - x q ) + C 

y" = 6A(x - x ) + 2B 
o 

The piecewise cubic fit to a tabular function by the above relations will yield 
a discontinuity in the second derivative y" , between adjacent fits of: 
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where 



h oi ■ x i - x 0 
h 12” x 2 - x l 

k oi * y l - ''o 

k 12 * y 2 - y l 

The method consists of setting the left-hand side of the above rela- 
tion equal to zero so that the second derivative Is continuous across Juncture 
points. As applied to a tabular function, the above procedure results In a set 
of linear simultaneous equations (trl-dlagonal) to be solved for the /' , provided 
that values for y ' at the end points are known. 
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5 ' 1 ' 16 “SSL or linear interpolation between two given points . 


Cubic interpolation for a 


function and its first two derivatives is per- 


formed as described below: ^ {irs( deriV ative values y 1 „ and 

Given function values y a y n + 1 , . ,, % and y"(x) 

!• . at x and x n+1 . this subroutine evaluates y(x) , y (x) » and y W 


V at X „ 
y n+1 n 


for x n * x < x n+1 using: 


y = A(x — X n ) 3 + B(x - x/ + C(x - V + D 

. . , x ~ X n - • [ 4+1 - y n 1 

y = y n x n+l - x„ 

y "= <4+1 ’ 4> A 


where : 


= 4 ■ t <y' n +1 + y ' n )h ■ 2kl 


B 


!_ • r ( y ' + 2y‘ )h - 3k] 

~ — o L ^ n+1 n 


c = y 1 


n 


D - y. 


n 


h = x n+l “ X n 


k y n+l “ Y n 

Linear interpolation for a function and its first two derivatives is 
performed as described below: 

+ x : x n _ • t y n+1 - y n l 
Y Yn X n+1 - X n 
- Yr 


y ■ = y n-fl " Y n 
y"= 0.0 


X n+1 " X n 
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5 . 1 . 1 7 SUBR OUTINE SUMPRT 

Thi3 subroutine is called by Program MAIN to write the "TDK 
PERFORMANCE SUMMARY" output that is printed after the execution 
of the MOC and/or BLM modules. An example of this output 
together with a detailed description is given in Section 7 of 
this report. Input and Output for Example Cases. 


5.1.18 SUBROUTINE T TAP E 

When a THERM0 directive card is read by the main program 
this subroutine is called to generate a master Thermodynamic 
Data tape (Logical Unit 25). The input Thermodynamic Data is in 
curve fit form and is identical to that required for the ODE 
computer program described in NASA SP-273, Reference 2. The 

format for this curve fit data is described in the User's 
Manual , Section 6.1. 


5.1.19 SUBROUTINE UNIT 

This subroutine is called by Program MAIN and is used to 
establish a consistent set of physical constants and conversion 
factors for the engineering units that are used throughout the 
program. The values are stored in C0MM0N/C0NSTS/ COO 0 ( 2 5 ) The 

values used have been taken from the back cover of Zucrow and 
Hoffman, Reference 10. 
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—2-^2 DU 2 E_ s U B R 0 U TINES 


— r;: *• - *• — 

^loulated assumming that the chemical ° 3 " 3l3 ° b3 

tb * (stagnation) condition, "T"' 10 ' ‘ 3 fr °“" •* 

Including transport properties are l " " IXt ' J '' e propertl93 ' 

Pp Pe used b y the T p E 8LM *r *»• 

Program. The 0OE module is a modified" ° ther ° PC1 ' > " 3 ° f the 

Equilibrium Compositions (CEC) prog ° f th3 0hemloal 

Reference 3. Referenm 0 8ram th3t 13 describ ed in 

nCS ^ should be referred t- n r 

Complete description of this program T h 3 '" 0r ' e 

of the following subroutines: ’ " 0<1 “ le °° nslst3 


ODES 

CPHS 

DETON 

EFMT 

eqlbrm 

frozen 

GAUSS 

HCALC 

matrix 

0UT1 


react 

RKT0UT 

ROCKET 

SAVE 

SEARCH 

SHCK 

THERMP 

tpcalc 

tscalc 

VARFMT 


PRECEDING PAGE BLANK NOT FILMED 
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^.2.1 SUBROUTI NE 0DES 


c iTTnr t 

f oiDE and corresponds to the MaLn Program 
This is the main program for «®E a ^ ^ foUo wln, functions: 

described In Reference 3- OCTANTS. 0MIT. INSERT, and NAMELIST 

and^dlrects ^ -ordlng.R. 

2 . stores and process REACTANTS cards. 

3. Calls subroutine REA species names. 

4 . Reads 0MIT and INSERT cards and stores 

5. Initializes variables In namelist S0DE. 

6. Reads and writes namelist $0DE. . m S0DE) to specific 

r+e asstaned densities, if any, (RHOUJ 

7 - SSSST, »- i/«o«- olumeslnNP . 

S. Stores the number of pressures , or volume ^ ^ been input 


Values 

Oxidant to fuel weight ratio, o 

Fuel to air weight ratio, f/ a 

Percent fuel , 

Equivalence ratio, r 
If above values not specified 


Cod e 

0F = .TRUE. 

PA = .TRUE. 
FPCT = .TRUE. 

ERATI0 = .TRUE, 
default to 


o/f calculation In main program 

0XF(l) = o/t 
gfXF(l) = l/(f/ a ^ 

(^fXF(i) = (100-%F)/(%F) 
_ rV -(2). V +(2) 


-r V vw - V ' 1 

^ F(i) = 

_ ,, WP(1) 

0XF(l) = wpW 


= 1.0 


■o- .*»■ -zsssxrss 

,TRUE * ’ ,, lrori THERM 0 data from tape and to store 

11. Calls SEARCH to pull required THERMO 

the data In core. These estimates are set 

12. Sets initial estimates for compoBitlon ^ ^ ^ first point in the 

with each $0DE read. Th y {irst Q / { an d the first T 

'^«r^^dlng points use results from . 

previous point for estimates. 


5-28 


For the first point the program assigns an estimate of 0.1 fo , 
total number of hllogram-moles per hUogram. The Initial estimate o nun, e of 

=r 

zero moles. 

13. Sets IUSE(j) positive for condensed species listed on INSERT car 
(see IUSE array). 

14. Calls THERM P if TP, HP, SP. TV, UV. or SV Is true. . 

15. Calls DET0N if DETN is true. 

16. Calls SHCK if SH0CK is true. 

17. Calls R0CKET is RKT is true. 
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5-2.2 SUBROUTINE DPR.q 


S° T This subroutine evaluates the thermodynamic functions -%1 Jlj. 

y from the 0urve tlt coe « lcle "ts. Two sets of coefficients are used foT, wo 
adjacent temperature Intervals. The functions evaluated are presented below: 


Cp° T 

~R~ 

RT 

S°„ 


RT 


= a l +a 2 T + a 3 T2+a 4 T3+ a 5 T 4 


a 9 T a.T* 

= a i + 4- + 4- 


= a 2 InT + a 2 T + 


a 3 T 


a 4 ^ 


a 4 r 


a 5 T 


a 5 T 


+ a. 


_£r 

RT 


S°„ 


When the temperature falls below 
the above thermodynamic function 
the input for subroutine LTCPHS. 


the lower limit of 
s are obtained via 


the curve fit coefficients, 
linear interpolation from 


5.2.3 


SUBROUTINE DETffN 


detona tLo^pro^enies^as des^-ib^ ^ * C ^ at *° n S required to ob ^in Chapman-Jouget 
Of Reference ^ Z ZT SeCtl °" ° HAPMAN -' 0U ^ DETONATION: 

detonation conditions T'" ^ 

positions. determining equilibrium com- 

5-2.^ SUBROUTINE EFMT 

f°™Ts b rUarto™I stnZ ToTm;t!3' S K n 3 SPeCial eXP ° neM ^ 

the spaces have been removed for compactness iTL ’ “d T E ^ ^ ° f 
mole fractions with the TRACE option. ’ “ Wr ‘ ,e de " Sit/ ' nd 



5’* 2- 5 SUBROUTINE EOLBRM 


EQLBRM Is the control routine for the equilibrium module which cal- 

^ln, teS A e free , r m C ° mP ° Sm ° nS and ‘^"^ynsmlc properties for a particular 
P nt A free-energy minimization technique Is used. The program permits 

t; s - a ~ 

f ' ''(*)/ (U,V), or (S,V), (2) theoretical rocket performance 

reflecte/r 1 ?^ ^ C ° mP ° Siti ° nS durin ^ expansion, (3) incident and 

reflected shock properties, and (4) Chapman-, ouguet detonation properties Ihe 

program considers condensed species as well as gaseous species. A detailed 

cheTl r °n the eqUatl0nS and C ° mPUter Pr ° 9ram f ° r com P utat i°ns Involving 
t . a l,T ‘ n C ° mPleX SyStems 13 given in Reference 3 . Figures 4(b) 

through 4(c, of Reference 3 gives a complete flow diagram for this subroutine. 

The equilibrium compositions are obtained by a Newton-Ranhsn 
Iteration. The Iteration equations are those of the modified Hufl mUhtd ” 

ZZrZT:: PreSemed “ TaWe ^ The COTrec “°- to ihe estimates 
that are obtained from this set of Iteration equations are unaffected by the 

choice Of components and are only affected by the current estimates. These 

s make no distinction between components and constituents, and thus 

any species can be dropped from the calculation. The iteration equations give 

ZZt T? thS m ° IeS 0t eaCh Cpndensed s **=‘« ‘he variables A and T 
direct-y. The corrections .0 the moles of gaseous species are obtained from 
the following equation: 

l 


A In nj = 


- 3, 


+ a ki A lnu k +V i AlnT (i*l, 2, 


• / m) 


k=l 


It is sometimes disadvantageous to apply the entire correction 
called for by the iteration equations. Consequently an empirical convergence 
parameter X ( 0 < X s 1) is used to control the size of the corrections. A 
numerical value for X is determined at each iteration. Methods for evaluating 
X are discussed later under Evaluation of Convergence Parameter X . New 
estimates are obtained from the following equations: 


In n 
n 


(j+1) 

i 

(J+1) 

i 


= In n[ j) + X A In ^ (i = 1, 2 m) 

= nj j) + X Anj (i = m + 1, m + 2 n) 
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pressure and temperature-. 


+ X A In A 


lnA (j+1) = lnA (j) 


In T* J+1) = In T (J * + X A In T 

The indices j and j+1 signify the estimates for the j th and (j+l) st iterations. 
•When the iteration has converged, the moles of gaseous species n^ will be 

numerically equal to the partial pressures Pj (i = 1, 2, . . m). 


After the equilibrium compositions have been determined, the three 
independent first derivatives c , ( 3 In Mw/3 In T) , and ( 3 in Mw/a In P) T 

p p 1 

can be evaluated by a procedure analogous to that described in reference 19 

The calculation of c and (3 In Mw/3 In T) requires the derivatives ( 3 In n./ainT) 

P P l p 

(1 = 1, 2,. . m), (3 n^/3 In T) p ( i = m + 1 , m + 2, . . . , n) , and 

( 3 In A/3 In T)^. Following the procedure of reference 19 for the elimination 


of linear combination terms, the set of equations in Table 5-2 is obtained for 
the derivatives ( 3 In u /31n T) (i = 1, 2, . . ., a), (3 n./S In T) 

i p i p 

(i = m + 1, m + 2, . . .,n), and ( 3 In A/a In T) . The ( 3 In n./3 In T) 

P i P 

are related to these by 


3 In n. 
3 In T 



£ 

k= 1 


ki 


'3 

In u, 
k 

\3 

In T 


+ V i 


(i = 1, 2, 


m ) 


Writing the equation for evaluating the specific heat and substituting the above 
equation gives 



n 


m 


a, jy.n. 
ki i x 


3 In u, 


3 In T 


I. • E *. fe)*E'A 


- 3 In A 
3 in T 


i=m ; .l 

m m 


-,i=l 


+ £&a + Z Wt 


i=i 


i=l 





TABLE 5-3 - EQUATIONS FOR EVALUATING DERIVATIVES WITH RESPECT TO 

TO LOGARITHM OF TEMPERATURE AT CONSTANT PRESSURE 








The solution of the equations in Table 5-3 also gives one of the molecular 
weight derivatives by means of the relation 


1 d 

In 

Mw 

'd 

In 

JLl 

1“ 

In 

T _ 

/P 

d 

In 

T) 


The derivative (5 In M/d 


In P) T can be calculated from 


d In Mw 
d In P 



P 


d In u k 
a ki n i d In A 


- 1 


k=l i=l 

where the required partial derivatives are obtained by a. solution of the equations 
of Table 5-4 of this report. It should be noted that the matrix elements of Tables 
5-3 and 5-4 are identical with the corresponding elements of Table 5-2 except 
for the sign of the last column in Table 5-3- The isentropic exponent, y , used in 
the calculations of the velocity of sound is 


y 5 


d In P 
d In p i 



1 


R 

c Mw 
P 


1 - 


d 

d 


In Mw 
In T 


PJ 


2 


Convergence in an iterative calculation involves two numerical 
problems: (1) how to assure numerical convergence, and (2) to determine at 
what stage the iteration should be terminated. Both of these are discussed in 
the following sections. 


Evaluation of Convergence Parameter X 

When poor estimates are used in a Newton-Raphson iteration, the 
iteration equations will invariably give corrections that are too large. If these 
corrections were to be used directly , they could produce a nonconvergent 
iteration. This type of situation normally occurs in the early stages of a 
calculation. 


BLE 5-4. - EQUATIONS FOR EVALUATING DERIVATIVES WITH RESPECT TO 
LOGARITHM OF A AT CONSTANT TEMPERATURE 


































At later stages of the iteration when the problem seems to be converging satis- 
actorily, the iteration sometimes attempts to make large increases in the 
partial pressures of species that are present in trace amounts. In both of these 
cases it is essential to place some restriction on the size of the correction. 
This is accomplished by introducing a convergence parameter X . 

The numerical value of the convergence parameter X is determined 
on the basis of two empirical rules, which experience has shown to be satis- 
factory. For the variables T, A, and n^ for those gaseous species for which 

InO^/Pg) >-18.5 and for which A In n. > 0, a number X is defined as 


^ £ - l 

1 max( j<\ In Tj , {a In Aj , ^ l n n^) ^ = 1 ' 2 * • • • , m) 

This limits the change in T and A and the Increase in n for those gaseous 
species whose gas phase mole fraction exceeds 10 -8 , to a factor e 2 = 7.3891. 
For those gaseous species for which ln(n /P Q ) s -18.5 and a In n. > 0, a 
number X£ is defined as ^ 


X 2 - min 


In P Q - 9.212 - In n ; 
A In n. 


(i - 1 / 2 , . . . , m ) 


This prevents a gaseous species with a mole fraction less than 10~ 8 from 
increasing^its partial pressure so that its gas phase mole fraction would 
exceed 10 . The parameter X to be used is defined in terms of X and X 


X = min(l, X r X 2 ) 
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Criteria for Convergence 


, t* i<. accnmod that the iteration has 

Equilibrium com positions,. - It i 

converged to the correct composition when 


n 


X „ 


J |A In n j <0.5x10 


-5 


(j = 1, 2 , . . m) 


and 


1 A n il < 0.5xl0" 5 (J-rn + 1 . m + 2 n) 

n 

£ n k 
k=l k 


This has the effect of insuring accuracy to 
is expressed as mole fractions. 


five places in composition when it 
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5.2.6 SUBROUTINE FROZEN 


Subroutine FR0ZEN is called from subroutine R0CKET to calculate the 
temperature and thermodynamic properties for the following assigned conditions: 

1. Composition frozen at combustion conditions. 

2. An assigned exit pressure. 

3. An assigned entropy equal to the entropy at combustion conditions. 
The iteration procedure used for obtaining the exit temperature Is discussed in the 
section Procedure for Obtaining Frozen Rocket Performance (p.40. Reference 3- ) 


For a mixture of fixed composition, entropy, and pressure, the 
temperature is calculated by a Newton-Raphson iteration. The correction to 
the current estimate for temperature is obtained from 


A In T = 




n 


H & i x i 


i =1 


The improved estimate for temperature is then obtained by means of 


In T (,+1) 


In T 


(J) 


-A 


In T 


are: 


and 


For frozen composition, the three independent first partial derivatives 
_ i=l 


Mw V x. 

c JL, 1 

i=i 


d 

In 

Mw 

d 

In 

T 


and 



0 


The isentropic exponent y is 


c Mw 

2 £_ 

c Mw - R 
P c 
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The throat conditions are evaluated with the aid of a secondary 
Newton-Raphson iteration using the equation 

/ P. ‘ 


P 


c 

P 


k+1 


1 + 


2Mw(h c - h*) 
" ( y +1) RT 


where (P,./P) k Is the k th estimate for pressure ratio at the throat and h* is the 

value ofh* for the pressure corresponding to this pressure ratio and an entropy 
equal to the combustion entropy. The Initial estimate for P e /P and T at the 

throat is described below. 

An excellent estimate of the throat pressure ratio for both equilibrium 
and frozen compositions is *y 


*y +1 

- -v- 


Tc 


- 1 


This relation usually gives a throat pressure ratio, which is correct to three 
places. The throat temperature is estimated from the equation 


T = 


1 + y c _ c 


The throat conditions for a rocket nozzle are assumed to be satisfied if 

a-4 


h - h* 
c 


h c ' h 


£ 0.4x10 


This condition in effect makes certain that the Mach number will satisfy the 
condition that 


M = 1 ±0.2x10 


-4 
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5-2.7 SUBROUTINE GAUSS 


Subroutine GAUSS is used to solve the set of simultaneous linear Iteration 
equations constructed by subroutine MATRIX. The solution is effected by perform- 
ing a Gauss reduction using a modified pivot technique. In this modified pivot 
technique only rows are interchanged. The row to be used for the elimination 
of a variable Is selected on the basis that the largest of its elements, after 
division by the leading element, must be smaller than the largest element of 
the other rows after division by their leading elements. 

The solution vector is stored in X(k). In the event of a singularity, 

IMAT (which is equal to the number of rows) is set equal to IMAT - 1. IMAT is 
tested later in subroutine EQLBRM. 


5.2.8 SUBROUTINE HCALC 

The purpose of HCALC is to calculate thermodynamic properties for 
reactants under certain circumstances. HCALC is called from entry NEWOF 
of SAVE and DET0N. 

HCALC is called from NEW0F when CALCH is set true. CALCH is set 
true in the main program when zeros have been punched in card columns 3 7 and 
38 on one or more REACTANTS cards. The zeros are a code indicating that the 
enthalpy (or internal energy for UV problems) for the reactant should be calculated 
from the THERM0 data at the temperature punched on the card. This temperature 
has been stored in the RTEMP array. CPHS is called to calculate the enthalpy. 
The value is sorted in the ENTH array and printed in the final tables. 

The properties calculated in subroutine HCALC, their FORTRAN symbols, 
and the conditions for which they are used are as follows: 



Property 

FORTRAN symbol 

Equation 


M OOT 

HPP(k) 

(192) 

SH0CK problem. DETN problem with T schedule 
HP, RKT, or DETN problem if 00 in cc 37 and 31 

h o /R 

HSUBO 

(193) 

SH0CK problem. DETN problem with T schedule 
HP, RKT, or DETN problem if 00 in cc 37 and 31 

v OOT 

HPP(k) 

(194) 

UV problem if 00 in cc 37 and 38 

u’/R 

HSUBO 

(195) 

UV problem if 00 in cc 37 and 38 

O 

M 

AMI 

(197) 

SH0CK or DETN problem 

0 

c 0 

EN(J) 

(205) 

SH0CK problem 

CPR1 

(206) 

SH0CK problem 

Jo 

SO 

(207) 

SH0CK problem 

... . - T / . \ 


The quantity was deliberately subscripted differently from EN(j) to 
allow for the fact that the same compound may have a different index as a reactant 


than as a reaction species. Thus, for example, (g) might 

be the third reactant read in from REACTANTS cards and also the tenth species read 
in by SEARCH. In this case m 3 would be stored in EN(10). 


5.2.9 SUBROUTINE MATRIX 


This subroutine sets up the matrices corresponding to tables I through 
IV of Reference 3- The assigned thermodynamic state being set up (tables I and 
II) is specified by the following codes: 


Assigned 

thermodynamic 

state 

Codes 

TP 

TP = .TRUE. VOL = .FALSE. CONVG = .FALSE. 

HP 

HP = .TRUE. VOL = .FALSE. CONVG = .FALSE. 

SP 

SP = .TRUE. VOL = .FALSE. CONVG = .FALSE. 

IV 

TP = .TRUE. VOL = .TRUE. CONVG = .FALSE. 

UV 

HP = .TRUE. VOL = . TRUE. CONVG = .FALSE. 

sv 

SP = .TRUE. VOL. = .TRUE. CONVG = .FALSE. 


After convergence of any of the previous six probelms, setup of the 
derivative matrices (tables III and IV) is specified by the following codes: 


Derivative 

Codes 

DLVTP 

DLVPT 

CONVG = . TRUE . LOGV = .FALSE. 
CONVG = .TRUE. LOGV = .FALSE. 







5-2. 10 SUBROUTINE 0UT1 


nils subroutine, together with entries 0UT2 and 01JT3, writes state 

0UT1 ■“*»« *. giving the data on 

an on o/f, percent fuel, equivalence ratio, and density. 

— r> ' g,UT2 - ‘ nis enCry wrltes the statements for printing values of 
pressure temperature, dentity, enthalpy, entropy, molecular weight, (a In V/» 

P) T (If equilibrium), ft In V/9 In T) p (If equilibrium). heat capacity y and 

vZli el f° CUy ' 1,1656 Var ‘ ableS """ COrresp °nding labels are printed with a 
variable format described in BLKDTA. 

mol f 7 * ry 0UT3 ~ ' Entry 0UT3 wr “ es statements giving the equilibrium 
mole fractions of reaction species. 

5-2- 11 SUBROUTINE REACT 

subroutine react *■ ,o read and «» » *• 
CTANTS cards, the subroutine Is called from the main program after a REACTANT! 

Sds r 6e : T ad ‘ data °" th6Se CaMS *™ d — ht the REACTANTS 
C^rds section (p. 62, of Reference 3. References to page numbers and equations 
given below also pertain to Reference 3. 

72 on the ffiACTANTS tS T ^ aC » “ Card COM™ 

(cc 72 ^ O) w n 5 ’ The t- "° 9roups are oxidants (O in cc 72) and fuels 

(cc 72 „ 0 y W e generally keypunch F in card column 72 for fuels even though 

this s no, necessary. The contents of card column 72 are read into F0X De- 

pendlng on the contents of F0X, program variables relating to oxidants or fuels 
are subscripted 1 for oxidants and 2 for fuels. 

and th ■ 1,16 F ° RTRAN s y mt, ols for the properties read from the REACTANTS cards 
eir associated properties (discussed in INPUT CALCULATIONS, p. 55 Q f Ref- 
erence 3 are as follows: 


5-^3 


Property | 

FORTRAN symbol 

a (k) 

ANLM(j , m) 3 

U 

PECWT(j) (if no M in cc 53) 

wj k) 

nJ 1 ^ 

(H° T ) (k) 

PECWTO) (if M in cc 53) 

ENTH(j) (if not UV problem and 00 not In cc 

Cu°J (;) 

ENTH(j) (if UV problem and 00 not in cc 37 


a Each of the J REACTANTS cards contains from 1 to 5 stoichiometric 
cedents read (Indicated by subscript m, Into ANUMO m)-^- 

corresponding chemical symbols read into NAMED, m . 

ANUMO.m) with a®?. the index 1 associated with a “ 

element Is determined from the chemical symbol In NAMED, m). 

If there are several oxidants their properties are combined by subroutine 
RRACT into properties of a total oxldan, using the relative proportion o each 
-It give! on the REACTANTS ca.s. — ^ ^ 

Iinput ^ „ «*** 


FORTRAN symbols are as follows: 


Property 


U 

w(k) 


FORT RAN symbol 

B0P(i,k) 

RMW(j) 

HPP (k) (if not UV problem and 00 not 
in cc 37 and 38) 

HPP(k) (if UV problem and 00 not in cc 
37 and 38) 

AM(k) 

RH(k) 

VPLS(k) 

VMIN(k) 


Equation 

(187) 

(190) 

(192) 

(194) 

(196) 

(198) 

( 200 ) 

( 201 ) 


. jNREAC ... 
n K i C wr ; pecwtO) 
j / i=i ] 


C *' 




(k) 

If any of the pj are zero then RH(1) = RH(2) = 0. 

These total oxidant and total fuel properties are subsequently com- 
bined into total reactant properties by using the values of oxidant-fuel mix- 
ture ratios obtained from the main program. This is done in NEW0F, an entry 
in SAVE. 

Other common variables set by REACT are LLMT, NAME, ANUM, ENTH, 
FAZ, RTEMP , FOX, DENS, RMW, M0LES, NLM, NEWR, and NREAC. 

A provision is made for eliminating a second tape search when two con- 
secutive sets of REACTANTS cards contain the same elements. This is done by 
saving the element symobls (LLMTte)) in LLMTSU), the kilogram-atoms per kilo- 
gram (B0P(4,k)) in SB0P(i,k), and the number of elements (NLM) in NLS. 

Atomic weights M. used in equation (190)^are stored in AT0M (2 , i) . The 
corresponding chemical symbols are stored in AT0M(l,i). The oxidation states 
of the chemical elements V* or V~ used in equations (200) and (201) 3 are stored 
in AT0M(3,i). The AT0M array is stored by BLKDTA. 
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5.2.12 SUBROUTINE RKT0UT 


This subroutine calculates various rocket performance parameters from 
previously calculated thermodynamic properties. 


It is also the control program for writing rocket performance output. It 
contains the WRITE statements that apply specifically to rocket parameters and 
it calls subroutine 0UT1 and entries 0UT2 and 0UT3 for the WRITE statements com- 
mon to all problems. The rocket parameters are printed with the variable format, 
FMT, described in BLKDTA. 

The following formulas used in computing the various performance 
parameters were derived from the one-dimensional forms of continuity, energy, 
and momentum equations and the following assumptions: zero velocity in the 
combustion chamber, perfect gas law, complete combustion, homogeneous 
mixing, adiabatic combustion, and isentropic expansion. (The units used were 
h * cal/gm,T = °K, P * lb force/sq in. , A = sq in. , w = lb mass/sec, and 
g_ * 32. 174 (lb mass/lb force) (ft/sec^) .) 

v 

Specific impulse with ambient and exit pressures equal, (lb force) (sec) /lb mass: 


I = 294.98 



h - h 
c 

1000 “ 


Specific impulse in vacuum (ambient pressure zero), (lb force) (sec) /lb mass: 


I 

vac 


= I + P — 
w 


Characteristic velocity, ft/sec: 


c* 


= g P 
y c c 



32. 174 P I— I 
c Iwl 


Coefficient of thrust: 



32. 174 — — T - 
c* 


Mach number: 


.M = 



V 86. 4579 yT 
Mw 


5-46 



5.2.13 


SUBROUTINE R0CKET 


f firms SUbrOUtine iS the control program for the RKT problem (rocket per- 

nee ca culatlons discussed in section R0CKET PERFORMANCE) 3 A flow 

R0cZl o ZT t S .' lbr ° l,tlne iS 9lVe " Fl9ure 5 ° f ^«enc e 3 Subroutine 

subroutine FR0ZEN to obtain ,He ***** 

foraance parameters are then obtained by callTci Pr ° Per, ‘ eS ' Rocket per ~ 

to calling RKT0UT and FR0ZEN and m addltl ! “ TOim " e RKT0UT ’ In Edition 
Problems (discussed In section M ~T “ 
e erence 3) subroutine R0CKET also does the following: ' ' 

'■ “ re * ds and Processes the input data In RKHNP namelist 
• estimates for throat pressure ratios. 

area ratlo^fl/ln^* 63 f ° r pressure ratios corresponding to assigned 


5.2. 11 subroutine save 

This subroutine has several functions, all of which are concerned with 
saving some Information from a completed calculation for subsequent use In later 
calculations. The primary purpose is to save computer time by having good in . 
estimates for compositions. 

These estimates for the next point, NPT, come from either the point lust 
completed. ISV, or some other previous point. The flow of the routine Is directed 

by ISV as follows: 

1. ISV positive. Transfer compositions for point just completed for use as 

initial estimates for next point (transfer ENO.ISV) to EN(J , NPT)). 

2. ISV negative. Save values of ENLN(]1 for gases and EN(1> for con- 
densed in SLN(j) , ENN in ENSAVE, ENNL In ENLSAV, IQ1 in IQSAVE, JS0L in 
JS0LS, JLIQ in JUQS. and NLM In 1X1. (These values are saved because they 
are to be used as initial estimates for some future point and they may be over- 
written in the meantime.) Make ISV positive and transfer EN(1,ISV) to ENt) NP ). 

3 ISV zero. Use the data previously saved (as discussed in 2 .) as 
initial estimates for current point. Restore IUSE codes and inclusion or exclusion 
of "E" as an element for I0NS option. 

Fntrv NEW0F. - NEW0F combines the properties of total oxidant and 
total fuel calculated in subroutine REACT with an o/f value to give properties for 
the total reactant. NEWOF Is called for each mixture assigned In the MK ^ ‘ n 
S0DE namelist. It is called from either THERMP. R0CKET, SHCK. or DETON. The 

calculated properties and corresponding FORTRAN symbols are as follows: 


Property 

FORTRAN symbol 

Equation 

K o 

b i 

h 0 / R 

B0(i) 

(191) 

HSUBO (if not UV problem) 

(193) 

u' /R 

HSUBO (if UV problem) 

(195) 

P o 

RH0P 

(139) 

r 

EQRAT 

(20 -1) 


Subroutine HCALC is called by Entry NEW0F to calculate the enthalpies 
for each reactant that has zeros keypunched in card columns 37 and 38 in Its 
REACTANTS card. 

Values of HPP(2) , HPP(l), HSUBO, B0P(i, 2) , B0P(i, 1) . and B0(i) are 
printed out. 



5 ’ 2 - 15 SUBROUTINE SEapr-w 


problem. TsVa“d e eo f ‘r *«■ *o be used in .he 

species that ate »- .hose 

selected. As the thermod^' 

nr;:r:ir^:r^>' - — - -“^s. 

lions fa nltla 0ne r 9e " emed f ° r USe ln -*=se q ue„t calcula- 

data from exceeding Tet "Za^Znenu °‘ ‘ZV^m PreVe "' THERM0 

common SPECIES and ate currently dimensioned lot 150’™“"." Ho" ‘ 
dimension may be teduced to save stotage. However, this 

Is true. NEWR Is set true InTcACT to"^ 09 ™ when the lo 3 lca ‘ variable NEWR 
-» stores chemical elemelit ZZ^ "Zl * R “ CT 

array. SEARCH stores THERMO dat • UITent Chemlcal s ^ stem in the LLMT 

Included in the LLMT he" T ^ “ 

SUB, A, C 0 EF, and TEMP SEARPN l ' ' THIGH ' 

Whose data are storedTc'ore ^ " ameS “ d **“ ° f 

se, equalise 0 " ‘TuSEoTf 1,16 T ^ ^ «" 

M LU zero. IUSE(J) for condensed species flr p <= ot , » 

*•==- 

ception. the even, there are two or more condensed phases”'! ”h ,h 0 ” e 6X " 

-h phase is given the same negative integer^ ThL ^TfcrVo » P “‘"' 
et equal to - 4 , for example, IUSE(j) for B O (s) will also h 2 ° 3 ^ 

description of the IUSE array is given below . 3 6 eqUa ' *° ~ 4 ' A 

in the THE^Z a lra C s 0 t n he enSed “* 3 SPe °‘ SS afe «» ^ adfacent 

increasing o^ecrling or er" “ ' aP6 - 1,1638 Ph ° SeS ^ ^ in 
decreasing order accord., ,g to their temperature intervals . 

r “ “ " = “~ ~ 


9 - 1)9 


EQLBRM. For condensed species, the sign is adjusted as species are included 
or excluded in the current iteration. 

For the I0NS option, IUSE(J) values for ionic specles^are set to -10000 
when the mole fractions of all ionic species are less than 10 . 


TUSE array . - Each value In the IUSE array Is associated with a species. 

These values of IUSE serve two purposes: „ 

1 They indicate which species are to be Included In the current Iteration 

(IUSE0) < 0 for excluded species and IUSE()) * 0 for Included species) 

2. They Indicate multiple phases of the same species if absolute values 

of IUSE(j) are equal. 

The lUSE(J) are Initialised In subroutine SEARCH and the main program 
as follows: 

1 IUSE(j) = 0 for all gaseous species. 

2 ‘ IUSEU) = n for all condensed species whose names have been listed 
on INSERT cards . The number n Indicates the species was the n condensed 

species whose THERMS! data were read from tape. 

3. IUSE(l) = -n for all condensed species not listed on INSERT cards 
where n is defined in 2. 

These initial values of IUSE(j) may be adjusted later In subroutine 
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5-2.16 SUBROUTINE SHCK 


Subroutine SHCK is the application module for the SH0CK problems. 

It calculates the shock parameters discussed in the section "INCIDENT AND 
REFLECTED SHOCKS". It reads and processes the input data in SHKINP namelist. 
Depending on which options are specified, it calculates incident shock conditions 
based on compositions frozen at Initial conditions and/or based on equilibrium 
compositions after shock. It also calculates, based on specified options, 
frozen and/or equilibrium reflected shock conditions relative to equilibrium 
and/or frozen incident shock conditions. 

5-2.17 SUBROUTINE THERM P 

This subroutine is the application module for TP, HP, SP , TV, UV, and 
SV problems. Common variables which must be set according to the assigned thermo- 
dynamic states are given in the section Application Modules (p. 76) of Reference 3. 

For these problems, the variables TP, HP, SP, SO, and V0L are set or read 
in subroutine 0DES. HSUBO is set either in SAVE (entry NEW0F) or HCALC. The 
general flow of the routine is given in figure 3 of Reference 3- 

Indices run from 1 to NP both for assigned pressures P and assigned 
volumes (V in 0DE and VL in THERMP). Indices run from lto NT for assigned 
temperature T. NP and NT are set in the subroutine 0DES. 



5.2.18 SUBROUTINE TPCALC 


This subroutine is used to obtain equilibrium values of , 
Y, R, and h from given values of T and P. Subroutine EQLBRM is 
called to obtain the solutions. 


5.2.19 SUB ROUTINE TSCALC 

This subroutine finds equilibrium solutions from given 
values of T and S. The method used is to call subroutine TPCALC 
to find equilibrium solutions from given values of T and P, then 
the P value is adjusted until the input value of S is matched. 
Iteration on P is done using subroutine ITER (secant method). 
Subroutine TSCALC is used to construct the gas properties tables 
used by the BLM which are discussed in Section 2.6.3. 


5.2.20 SUBROU TINE V ARFM T 

Subroutine VARFMT (variable format) adjusts the number of 

decimal places printed in F-format in the variable format. FMT , 

according to the size of the number. It is used for P c /P g • 

and A /A t . Variable format is described in BLKDTA. 
e t 
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5.3 ODK MODULE SUBROUTINES 


The One-Dimensional Kinetics (ODK) module is used to 
calculate the loss in nozzle performance caused by finite-rate 
chemistry of the expansion products. The method of analysis 
used is described in Section 2.1 and 2.2. Since the ordinary 
differential equations that are solved can be extremely stiff, a 
stable integration method is required. The Integration method 
is described in Section 3 . 1 . 

The ODK module consists of the following subroutines: 


ODK 

ODKINP 

CHTYPE 

ODWALL 

CON V RT 

OUTPUT 

DERIV 

PACK 

ECNV1 

PACKCD 

EF 

PRATES 

FLU 

PREAX 

FNDLM 

PRES 

GTF 

PRNTCK 

I A UX 

REAXIN 

INT 

SELECT 

LESK 

STF 

MAIN1 D 

ST0ICC 

MGET 

STORNU 

NUMB R 

SUBNE 

ODKBLM 

TABGEN 
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5.3.1 


SUBROUTINE ODK 


This subroutine acts as the driver for the one dimensional 
Kinetic expansion calculation (0DK ) . It calls subroutine ODKINP 
to read the »ODK input. Subroutine PACK Is then called to 
prepare master tables for the chemical species and reactions to 
be used. Then subroutine MAIN1D Is called which is the main 
program for the ODK module. 

5.3.2 SUBROUT I^N E C HTYPE ( KRD.» 121.1— 

Given the array KAD containing In each entry one character, 
left justified, this subroutine stores an Interger code Into the 
corresponding entry of array ITY. NC is the number of 
characters (consecutive entries) in KRD which are to be 
processed. The character-code table is as follows. 


Character 

» 

+ 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

all others 


Code 

-4 

-3 

-2 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

-1 


5 - 5*1 


5 - 3*3 SUBROUTINE C 0 NVRT 


to „ subroutine converts input data from the externally Input units 

du Z Z Z U T C ° mPUt ° U °" UnltS - In order «° conserve computation time 

eluded in thes ° e * PanSl0n ' parameters suoh as molecular weights, are in- 
eluded in these conversions. Barred values are input quantities. 


a) Reaction rate ratio input for reactions requiring third body terms 
units: unitlees 

internal units: (lbs-mass/lb-mole)~* 
formula: XMM = XMM, ,/Mw, 

1 Jt 1 I 

b) Pre-exponential reaction rate parameter 
input units: cm, °K, g- m ole, sec 
internal units: ft 3 , 0 R, lb-mole, sec 


= a } • (. 0160 183) X j 1.8 n j 

n Mw i "ii 

i = l 

Where X depends on the order of the reaction , i . e . where 

A = (Ev) - l for binary exchange and Ev for third 
body recombination. Aloe: 

-5 3 

m gq ) q g - -3 . 53 1 47 • 10 .ft 1 q-mass 

3 * — — - — ~ 

1 ° m 2.20462 • 10 ’ 3 lbs-mass 


c$ Exponential Term: 

input units: kcal/mole 
internal units: °R 
formula: b j = b j • 905.770 

where 905 . 770 = i°°°_£al_ _ } 

1 kcal 17987 26 cal/moIe^K" * 77 R 



e) 


Equilibrium Constant Multiplicative Factor: 
Input units: not input 
internal units: (lbs-mass) - °R/ft 
formula: 


'DATEF(J) = 


where 


products 

K/f TAT 

1=1 1 
reactants 


n MWj 


-(v-v) 

(0.73034) 


.73034 = 49 < 721.011*-~f£2HI]^|l|_ 
L.e. (lbs-mole) R 

. 73034 = (RJg)/(144 g 14.69) 

Pressure: 

input units: PSIA 

2 

internal units: poundals/ft 
formula: P = P • 4633.056 


1 atrnos 2 

68,059.59 poundals/ft 


where 


4633.056 


144 in* 


1 ft* 


32.174 


ft 


2 

sec 


The initial reference enthalpy is computed using 

N „2 

H Ref = H c i h i + ~2~ 
i“l 


Subroutine C0NVRT has been modified to calculate the total amount of con- 
densed phase present at the kinetic expansion Initial conditions. 
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5 . 3.4 


SUBROUTINE PER IV 


This subroutine computes the total derivatives and the partial 
derivatives 0^ described in the analysis presented in Section 3 

The implicit integration method used to integrate the differential 
equations governing the chemical system, i.e. 

y i " f i ( x ' y i » • • * y NSP+3^ • • •# NSP+3 

where the variables 


y L i=l, . . NSP+3 

are V, p, T, C i 1=1, . . ., NSP 

respectively, requires evaluation of the Jacobian of the system, i. e. 


* f i 


i-1, . . ., NSP+3 
j*l, . . NSP+3 


Subroutine DERIV computes only certain of the 0 ^ (those taken 
with respect to C^) and the others are computed in subroutine FLU. 

Also calculated by DERIV are the reaction rates, kj, and the net 
production rates, X^. 

The generalized chemical reaction which is handled by this sub ~ 
routine is defined by: 

NSP NSP 

S •'is « £ v Ij 

where represents the i th chemical species. 

The reverse reaction rate constant is defined by the equation: 


SK(J) 


= a 


j ’ T -n J • exp (-b./T) 


The net production rate for a reaction is given by: 
f NSP u NSP v ' 

x ) X(D “ [*1 ‘ "i G t "-pVfte, 


kj • Mj P 


( Evi j )-l 


U‘ 


where: Xj depends on the order of the reaction* 

NSP 

with M,- £ • C t for reactions requiring a third body 

and M,-l for all other reactions 

where XMM^ 5 11 j i /M, 'i , = a lj /a kj 

The net Individual species production rate Is given by the equation: 

l 


dC 


dx 


1 FN(D = K, • £ ^ ‘ Xa 


w i Fl Y ii “J 


respect to 


where: 

* 

« (Mw t • p • r*)/V 

hi BV ij ‘ v u 

The partial derivatives of the net species production rate with 
: the chemical species; the gas velocity; the gas density; and the • 

are are: i 


/5(Cj t< C l ) 

BT(I, K) = 

7 

. E'iui 



i = 

• 1, • 

. . , NSP 

K i 

j=i ac 1 



k s 

= 1 / • 

. NSP 


phki, i) - 


i dC i 



i = 

5 1, • 

... NSP 

/3(C i ,V) 


V dx 

m 

3 





PHI(I, 2) = 

_i_ 

dC. _ 

1 x V 


i * 

a 1 , . 

. . , NSP 

*KC 1>P ) 

p 

* "j - ^ 4 

dx i 

jJ 

j=i 

Up 





PHI(1, 3) = 


. j=i aT 



1 ! 

= 1, • 

. . , NSP 


* Xi» W (V - v,.) so that X;= 0 for binary exchange, Xj= 1 for most 
J 2^ . ij i) J 


1=1 

dissociation recombination reactions. 


The subscript notation used above is: 


i “ Species subscript 

J * Reaction subscript 

l m Total number of chemical reactions 

m - Number of reactions requiring third body terms 

NSP = Total number of gaseous species 

Subroutine DERIV calls subroutine FLU to calculate the 
derivatives and partial derivatives of V, P, -and T. In the event 
of solidification, this routine also recalculates the condensed 
phase species derivatives and their partial derivatives and 
recalls subroutine FLU to recalculate the flow derivatives. 



5.3.5 SUBROUTINE E CNV1 

This subroutine translates a BCD string of characters into 
one floating point numeric value. E f I, and F formats are 
permitted with the result always a floating point number. It is 
called by subroutine REAXIN to decode numeric fields in the 
species and reactions cards. The subroutine is coded entirely 
in FORTRAN. A BCD string of blanks will result in a floating 

point zero returned value. 
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5. 3.6 SUBROUTINE 


EF 


This subroutine computes equilibrium constants, K jt 


K. 'EKQ) = -j^ T£F (J? 
1 T^J 

also computed are 




DKT(J) « 







R 


i 




where. Ftj species free energy at the current temperature 

Ht^= species enthalpy at the current temperature 
DATEF(J) * is defined in subroutine C0NVRT 
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5.3.7 


SUBROUTINE FLU 


This subroutine computes the total derivatives f. and the partial 
derivatives and 3^^ for the fluid dynamic equations. While the flow is 
subsonic, pressure defined fluid dynamic equations are used. When the 
flow becomes supersonic, area defined fluid dynamic equations are used. 

The summation terms, energy exchange term B, the diabatic heat addition term 
A, the Mach number, and all the partial derivatives of these tetms are com- 
puted. For a subsonic integration the pressure and its derivatives are obtained 
from the subsonic pressure table. For a supersonic integration the area ratio 
and its derivatives are computed from the input geometric constraints. 

The calculations logically fall into three types: a) Those done for 
all integrations; b) Those done only for subsonic integration; c) Those done 
only for supersonic integration. The following will adhere as closely as 
possible to a sequential description of the computations. 

The operators $(i,l) , 1 = 1, 2, 3 are defined as 

» (i, 1) = p (c i , V) 

*(i,2) = p (C it J 

$ (i, 3) = p (C i , T) 

dC 

The total derivatives, f . = ^ # for i = 1, . . . , n are computed a 



where n is the total number of species, NSP. 

For an ODTDK problem, tables of Cp, R, AA, BB, as functions of 
temperature are written on logicdl unit JANAF. 


Computation of the Summation Terms and their derivatives: 
First Summation 


SI 

SI 

SB 

, n dC 

i • £ • R 

R 1=1 dx K l 

asi 

av 

DS1Y 

ss 

i n 

— S § . . . R 

R 1=1 (1,1) i 

dsi 

dp 

DS1R0 

= 

— •£ # . R 

R 1=1 (1,2) K i 

dSl 

&T 

DS1T 

as 

1 ^ 

R 'Si * (1,3)' R 1 

dSl 

5C i 

DS1C(I) 

- 

R ’ C=1 ^(C^C^ 

Second Summation 



S2 

S2 

rz 

— • s d ° l ■ l 
R-T 1=1 dx 


£S2 

dV 


DS2V 


n 


RT*iSi Vl)’ h i 


as2 

dp 

3S2 

dT 

as2 

dc l 


n 


DS2R0 


DS2T 


DS2C(I) 


■S i 


R • T 1=1 (1,2) 1 

1 A r n 

riiS b a,3) ' h i + dj" Cp i j ■ 


0 „ » • h. 


i . r£ - (c r c i ) 1 

r Lr=i t 


-S2 • Rj ] 


* Rj is the gas constant/molecular wt. of species 1 


Computation of the Energy Exchange Term B and Its Derivatives: 


B 

BB 

» 2Lli . S2 
r 


BB 

BY 

DBBV 

y-1 BS2 

y ’ BV 


BB 

Bp 

DBBR0 

y-1 BS2 

* y ‘ Bp 


BB 

bt 

DBBT 

_ rzL . ss2 sg 

- y 9T y 2 

BT 

bb 

B°l 

DBBC (I) 

. Jil . 532 . + S| 

v BC 2 

7 y 

. ^2 i* 1, n 

BCi 

Computation of the Dlabatic 

Heat Addition Term A and Its Derivatives: 

A 

AA 

= Sl-B 


BA 

3V 

DAAV 

BS1 BB 

BY ~ BV 


BA 

Bp 

DAAR0 

BS1 _ bb 

Bp Bp 


BA 

bt 

DAAT 

BS1 _ BB 
BT " BT 


ba 

B°l 

DAAC(I) 

BS1 JB 

B ~ B C L 

i = 1 / . . . i n 




Computation of the Mach number and its derivatives: 


M 2 

XM2 

V 

y-R- T 


dM 2 

dV 

DM2V 

2 -M 2 
V 


dM 2 

dT 

DM2T 

• 

"sU 

1 

"si- 

1 

n 


dM 2 

dCi 

DM2C(I) 


1 ™ 1 1 • • • i n 


For the subsonic portion of the nozzle, pressure defined fluid dynamic 
equations are used. The pressure, and its first and second derivatives are 
computed via interpolation in the pressure table generated by subroutine PRES. 
Hie Subsonic Gas Velocity derivatives are computed: 


dV 

dx 

a[FNxa)] 

dx 

J8(V,V) 

0(V,p) 


FNX(l) 

AL(1) 

BETA (1,1) 
BETA(1 , 2) 


p-V 

J_ 

p-V 



dP 

dx 



dV 

dx 


dV 

dx 


The Subsonic Gas Density derivatives are computed: 


d£ 

dx 


FNX(2) 


d[FNX(2) 1 

dx 


AL(2) 


P .[ 

’ dP 
. dx 

• -a! 

y-p j 

_£L 

y-P 

• 

"d 2 P rdP'- 2 1 ] 

_ , 2 V dx ^ Pj 
dx 



BETA(2 , 1) 


- P 


0(p,V) 

0(p, p ) BETA(2 , 2) 

0(p,T) BETA(2 , 3) 


1 

P 

- P 


B_A 

BV 

d£ 

dx 


- P 


BA 

3p 


BA _ P §21 . dP 
B T ” P-y z BT dx 


P By dP dA . = i 
- -*• * • — - p --777 1=1. 


0(p,c.) BETA(2 / l+3) 2 dc ^ 

1 y P 


The Subsonic Gas Temperature derivatives are computed: 


dT 

dx 

FNX(3) 

T • 


•*•£-] 

*CRW(3)] 

Bx 

AL(3) 

YzL . 
r 

I 

P 

[A -®' F ] 

u dx 

0(T,V) 

BETA(3 , 1 ) = - 

T • 

b_b 

BV 


£(T, p ) 

BETA(3 ,2) = - 

T • 

BB 

Bp 


j8(T,T) 

BETA(3 ,3) = 

I . IT 
T ' dx 

+ T 

1 dP Bji _ iB 

2 _ dx BT BT 

y *P 

iSd.cp 

BETA(3 , 1+3)— 

T • 

[-* 
y * 

. . dP . _ il 1 , 

p dx BC i BC t J 



For the supersonic portion of the nozzle, area defined fluid dynamic 
equations are used. The area ratio, and its derivatives are computed according 
to the input geometric constraints. 

Area ratio and its derivatives: 

1) On the circular arc of radius R d (input item RWTD) defining 


the downstream throat region, XsX 


tangent 


1 + R d - ( R d 2 -* 2 ) 


1/2 


da 

dx 


d 2 a 

dx 2 


2x 


(■ k 2 -- 2 ) 


1/2 


[ : + % - (% 2 - * 2 ) 1/2 ] 


2x‘ 


('--r m) 


3/2 r 1+ % “ ( Sd~ x 


2x 

R 2 2 

R d - X 


n 


2) For a conical nozzle and X > X 


tangent 


da 

dx 


[ r t + (* - tan ° t j 2 

2 + ^x-x^ Can 0 fc ^.Can 


2 

da ~ „ 2 

~ = 2 Can 0 

dx t 
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3) For a contoured nozzle and X > ^ en ^ 


a 

- Y 2 

da 

, 2 .y.fC 

dx 

dx 

d 2 » 

dx 2 

- 

. dx 



where Y, dY/dx, d^Y/dx 2 are computed via Interpolation in the table of 
derivatives of the input wall table generated in Subroutine SLP. 


The Supersonic Gas Velocity derivatives are computed: 


dV 

dx 


FNX(l) 


siasmi Aid) 

ox 

0{V,Y) BETA(1 , 1) * 


JL . Ti da . A 1 

_2 , La dx A J 


M -1 


M -1 

1 

V 


£0*] 

' ’ dx 


dV 

dx 


m 2 -i 


dV . dM 
dx dV 


V dA 

2 dV 

M -1 



BETA(1 , 2) = - 

V 

iA 




0(V, p) 

m 2 -i 

dp 





BETA(1 , 3) - - 

1 

dV 

d M 2 

V . 

dA 

0(V,T) 

m 2 -i 

dx 

dT 

m 2 -i 

dT 



1 

dV 

dM 2 

V 

dA 


BETA(1 , i+3) = - 

m 2 -i 

* 

dx 


m 2 -i 

dc i 


The Supersonic Gas Density derivatives are computed: 


le. 

dx 

FNX(2) 

f M 2 < l da > -i 

= ' - A ^ +A ] 

d[FNX(2)1 

dx 

AL(2) 

. - p. M 2 . i . _ I/'daN, 2 -) 

M 2 -l a *-,^2 a kix./'J 

fl(PtV) 

BETA(2 , 1) 

. p.f 1 . r i da SM. 2 _1_ 

L (M 2 -1) 2 V a d * V 5V M 2 -l 

P(p,p) 

BETA(2 , 2) 

« I . dfi. + _e_ . M 

p dx m 2_ x 3p 


SA 


£(p,T) BETA(2 , 3) 


1 


S' 

1_ 

da 


5M" 

1 

’m 2 -i) 2 


1 

V. 

a 

dx 

V 

dT 

m 2 -i 

1 

S' 

i 

da 

\ 

dM 2 

, 1 

dA 

(M 2 -!) 2 

\ 

a 

dx 

-a; 

ac i 

M 2 

v c 






i 

» 1,. 

. . , n 


The Supersonic Gas Temperature derivatives are computed: 


dT 

dx 


FNX(3) 


= - T 


£(y- 1) 


M f J_ da_ x 

m 2 -i v a y 


] 




0(T,V) BETA(3 , 1) 

0(T,p) BETA(3 , 2) 


= _ T . JiL . 2Lzl .fdfa _I/da \ 2 -| 

M 2 -l a ^ dx 2 a J 


TM 2 -!) 2 Va “* J 


SKI 2 , M 2 dA _3B 

8V M 2 -i av ' av 


•jV-i • 




dA d_B 

m 2 -i ac ’ Sp 


] 


^-69 


0(T,T) BETA (3 ,3) 


1_ 

T 


dT 

dx 


+ T 


„ 2 

r ni c 1 da /u 

* T 


m 2 M 

2 -l * T 


dB 

dT 


M . 

(m 2 -D 


r 1 da 
v a dx 



PIT.CJ 


BETA C3 , 1+3)* T • 


c 


Jd 


M 2 


■' 1. da_ A dM** , . J£. . 
dxAa^ ‘ m 2_i 


JB ( 1. 42. a ^i2_"| 

’ 8 C l’M 2 -l Va ^ ' 8 C l J 


1 = 1 # • * • # n 


2-/U 


5.3.8 


SUBROUTI NE FNDLM (IC . NS. TP , i D L M ) 


Given a card image 
subroutine searches left 
number 


stored 80A1 in 


the IC array, this 
to right, starting with character 
NS, until a match is found to the input character IDLM. 
The character number is returnee in IP. If no match l3 found> a 

-1 13 returnee in IP. This subroutine la usee by subroutines 

MGET, PRATES , ane REAXIN to locate fiele delimiters. 
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5.3.9 SUB ROUTINE GTF 


This subroutine computes the effective gas constant, gaseous heat 
capacity, y, dy/dT, dy/d from the following formulae: 

NSP 

R - 2 C • R 

1-1 

NSP 

Cp = Sc. - Cp. 

I - 1- 


y - C£_ 

7 Cp-R 


h. 


NSP 

S 

^Cp 

c k - ^ 1 



Cp 

l-l 

1 dT 


d °i 

» y. (y- 1) • 


- —1 
Cp J 

1=1, . . .,n 


For condensed phases, Rj=0, to account for the assumption that the particles 
exert no pressure on the gas. 


70 


5 • 3 . 10 


SUBROUTIN E IAUX (HL. H. Q K. RK. IX) 


This subroutine performs implicit integration according to the 
method discussed in Section 3. The increments for the chemical species 
concentrations and the fluid dynamic variables at the forward point are cal- 
culated by solving the appropriate implicit finite difference formulas. Subroutine 
IAUX also performs explicit integration, using a modified Euler method, when 
the gas temperature falls below an input value. 

The calling sequence parameters are: 


HL - last integration step size 
H - current integration step size 
QK - last increments for variables 
RK - computed increments for variables 


JK 


1 initial 3 steps 

2 general step 

3 special step 

4 restart step 


The total derivatives, f. , and partial derivatives, ft. . at the 
back point are calculated in subroutines DERIV and FLU. 

The special step calculation is used at print stations, in halving 
the step size if required, or for integrating to specific calculation stations. If 
the special step calculation is used to determine the properties at a print station, 

the calculation is resumed using the general step calculation and the previous 
step size. 


After each integration step, subroutine IAUX obtains the derivatives 
at the then current axial position. 





For Implicit Integration the equations used are: 


Initial Step and Restart 




General Step 


i ,n+l 


N 1 

f + o. h + Z 6. . k. . *1 

i , o i,° j=1 i.j.° J. 1 J 


_ N 

| k. + 2 -If. +a. h + Z 6 k . \ 

3 i,n 1 i,n i,n . i>j» n J »n+l | 
l . J 


Special Step 


n+1 


i,„ + i Uh^h,)-^ 


+ [ £ . + a . 1 

i,n i,n i,n 


n+1 


N 1 h 

h Z 3. 4 k . . . ' 

J-l i *^ n ^ n+1 ] h n+l 


h ,+h ) 
n+1 n 


For explicit integration the above equations are used deleting the 
partial derivative terms a and $ . 

If the TDK problem directive was selected, gas tables for the Transonic 
Analysis Subprogram are written on logical unit ITSTAB. 

If the option to generate input tables for the Turbulent Boundary Layer 
Nozzle Analysis Computer Program was selected, tables of M, P/P c » TA C / V, p 
are tabulated using subroutine TABGEN . 
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5-3. 11 SUBROUTINE INT 


Provides control for the implicit integration procedure, 
determines the proper set of nonhomogeneous equations to solve, 
and, after each integration step, computes the next integration 
step size according to the following relations: 


h . 
n+2 

2h n+1 ' 

k 1 , n+ 1 

- 2k. + k. 

i , n l , n - 1 

< 

6 



^max 

MAX 

~20 

h n + 2 

2 h n+1 ’ 

k i , n+ 1 

‘ 2k i,n * k l.n-, 

1 

1 

i> 

6 




3y max | 

; MAX 


h n + 2 

’ h n* 1 ’ ‘ * 

k i , n+ 1 

- 2k. ♦ k, 

1 . n i , n- 1 


5 


20 


3 y max 

MAX 


where 

y 

max 

■ " ax C kl.nl- 

1 0~ 5 ] 

; i » 1,2,.. NSP + 3 



On option, (JF»1) only the fluid dynamic variables are used 
in determining the next integration step size. 

If the step size is halved for the fourth step, the 
integration is restarted using one-half the original step size. 

The correspondence between equation number and physical 
property is: 


E a^_i o n_ N u m b e r 
1 

2 

3 

4 NSP +3 


P rop e rt y 

Velocity of Gas 

Density of Gas 

Temperature of Gas 

Gaseous species mass fraction 

(1...NSP) corr espondence to 

( 4 . . . NSP + 3 ) 


When the flow is supersonic, continuity is used to control the 
integration step size to insure that: 


(pVA) N+1 - (pVA >n ! 

( pVA) N+1 j < C0 NDEL 


where C0NDEL is an 


1 0 


-5 


input relative criterion with a default value 


5-3-12 S UBROUTINE. LESK (Y) 


This subroutine Is a single precision linear equation solver which is 
used to perform the matrix inversions required by subroutine IAUX. Gaussian 
elimination is used with row interchange taking place to position maximum 
pivot elements after the rows are initially scaled. 


5-3-13 SUBROUTINE MAT NT n 

This subroutine provides the overall logic control for the one-dimen- 
slonal kinetic expansion. The following functions are controlled: 

1) Variable Initialization 

2 ) Option to start the kinetic expansion from equilibrium 
throat conditions 

3) Controls of the integration to hit specific! area ratios, the nozzle 
throat point, the nozzle tangent point, and the requested end point 

4 ) Controls of the switch from the subsonic pressure Refined equations 
to the supersonic area defined equations when (M il.02) 

5 ) Controls the switch from implicit to explicit integration. 

For the normal mode of operation of the program, this subroutine locates 
the throat in the following manner: 

The gaseous mass flow per unit area (pv) is calculated and stored as a 
function of nozzle axial location for the present and past integration step. When 

( pv) n+l < (pv) n 

where n refers to the n integration step, the throat location is calculated from: 

. X* - X n + <X n~ X n-1 >2 ' Hn+1 * VVj ' 

2 • [<VrV • -<Wi> f^+r 

th 

and the n+1 Integration step is repeated usino a step size of X* - X to deter- 

' n 

mine the throat conditions . 

To prevent the location of a false throat due to roughness of an input 
pressure table, ten integration steps are required before the throat will be 
sought. 

Through the downstream throat radius of curvature the step size is 
controlled so as to be less than or equal to RWTD*SIN(THETA)/25.0, 
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Subroutine MAIN1D also contains the logic to control the 
integration through solidification of nultlpl. condensed liquid 
phases If they are present. This logic allows the *"***”“°" 
procedure to hit the beginning and ending of solidification 
exactly and to turn on the solidification equations In subroutine 
DEBIT via the flag IFMELT in COMMOS/UMELT/. 


c_7P 


5.3.14 SUBROUTINE MGET 


Thi3 subroutine is used to decode the M's in the 3rd body 
reactions. it uses subroutine FNDLM to locate the field 
delimiter, and subroutine ECNV1 to translate the M value from a 
character to a floating point number. 

5.3.15 S U B R 0 U T I N E_ N U M B R 

This FORTRAN subroutine converts a one character BCD number 
to a Integer number. 

5.3.16 S UBR OUTINE_OD KBL M 

If BLM is to be run folowing the execution of a 

Two-Dimensional Frozen (TDF-1.) calculation, then subroutine ODK 
calls ODKBLM to obtain the required gas properties. These 
consist of gas viscosity, Prandtl number, and total enthalpy; 
followed by tables of Cpg» Y, h, and R vs temperature. All of 

the above properties are written on unit LUBLM . The properties 
correspond to a) the chamber equilibrium species compositions 
expanded in a frozen state, or b) the input species compositions 
expanded in a frozen state. 
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.17 SUBROUTINE CfrDKINP 


This subroutine provides the Input processing for the kinetic expan- 
sion calculation. It performs the following functions: 

1) Variable Initialization to nominal values 

« Calls subroutine REAXIN to input the reactions cards and species 
cards if necessary 

o\ For an 0DE-0DK problem, calls subroutine SELECT to select 

S those* species to be considered for the kinetic expansion 
calculation 

4) Reads $0DK namelist input data 

Si Converts nozzle geometric Parameters from input units: inches, 

degrees; to internal computational units: fee , 

6) Computes nozzle tangent coordinates using: 

r = i +R (1 - cos 0) 
t a 


x t = R d sin 0 

7) For conical nozzles, computes the axial coordinate for the exit 
station from the following relation. 


VT - r t + x t • tan 6 


'exit 


exit 


tan 0 


Jr^ - ( 1 + R d -VEP) 2 | 


'exit 2X t 


'exit <x t 


q) ' Yoc conical nozzles, the internal axial print stations 
are computed using: 

VaRPRNT(J) - r t + x t . tan 0 

tan 0 

2 


V 


Xj sX 


V 


- [l + R c 


t 

1 I 2 ' 


- (ARPRNTQ) ) 


XjCX, 


9 ) 


The sum of Input or selected species 
concentrations is checked for unity 
( + XMFTST, where XMFTST is an input 
number), and then normalized. 

10) If the input parameter RZN0RM Is input, 
the Input contoured nozzle table Is 
normalized by RZN0RM. 

In addition to the above, the following are done 
in the 0DKINP routine. 

a) If the nozzle geometry has been Input via the $DATA 
namelist, 0DKINP stores the variables from this Input 
into the correct locations and performs the appro- 
priate unit conversions. 

b) Accepts the parabolic and circular arc options 
(IWALL=2 and 3) from the $DATA namelist . This is 
done by computing the nozzle wall points and 
derivatives at 20 equally spaced points and sub- 
stituting them into the tables used in the contoured 
wall input option. 

c) Accepts as input the quantities needed to calculate 
the zero particle lag flow equations. 



5.3.18 SUBROUTINE ODWALL 


This subroutine is called by subroutine ODKINP for the 
purpose of calculating the nozzle wall contour and setting print 
stations for ODK when the following wall options are used: 

2 parabola, 

3 circular arc, 

6 skewed parabola 


I WALL - 
I WALL - 
I WALL - 


S-82 
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•!9 SURROTTTTNF. QTTTPTTT 


This subroutine provides conversion from internal computational 
units to output engineering units and the calculation of performance para- 
meters. The following output parameters are computed by this subroutine: 

The pressure (in PSIA) is computed from: 

P (PSIA) = P/4633. 056 

The gaseous species mole fractions are computed from: 



The gas molecular weight is computed from: 

Mw « 49721. 011/k 

The percentage mass fraction change is computed from: 

n 

% A (Mass Fraction) = 100.0 • ( 1 . 0-2 C) 

1=1 1 

The gas heat capacity is computed from: 

Cp (BTU/LB-°R)=3.9969 ♦ 10 " 5 • Cp 
s y 

The gas enthalpy is computed from: 

n 

Hg (BTU/LB) =3 . 99 69 • 1 0 -5 • 2 C • h 

1=1 1 1 

At the throat, the characteristic exhaust velocity (ft/sec) ts com 
puted from: 


The vacuum specific Impulse Is computed from: 


ISP, 


VAC 


V + P/P 

c 

g 



32.174 


The vacuum thrust coefficient is computed from: 



I 


s Pvac 


& 


The percentage enthalpy change is computed from: 


%ah t 

where 

HREF 


100- (HREF - HREF) 
c 

V 2 /2 


NSP 

,2. c 

i*i 


i \ +v /2 


HREF Is HREF evaluated at the initial condition for the 0DK 
integration (l.e. at the Initial contraction ratio, ECRAT). 

In addition the actual molecular weight of the mixture of gases and con 
densed phases is also printed out. 


5.3.20 SUBROUTINE PACK 


On the basis of those species currently being considered, this sub- 
routine packs species and reaction information from the master tables into 
those control sections utilized by the one-dimensional kinetic expansion sub- 
program . 

The following is a sequential description of the packing procedures: 

1) Thermodynamic data for the species being considered is 
read into core storage. 

2) The chemical species’molecular weights are computed 

3) The symbolic reactions are checked for mass balance. 

4) For a contoured nozzle the slope at each input wall point is 
computed using subroutine SLP. The wall coordinates, and 
each computed slope are printed for each input wall point and 
the print stations are set to the input axial coordinates. 

In addition to the above, the PACK routine processes condensed 
phases by setting ^ =0 for those species and storing pointers for up to 10 
condensed phase species (5 pairs). Thi<j. routine also calculates the print 

positions for specified area ratios when the contoured (spline) wall option is 
selected. 



5.3.21 


SUB R 0 U T I N E PACKCD (KRD, IPK, KNT) 


This subroutine packs down a card image stored 80A1 in the 
KRD array by removing blanks. The packed card image is returned 
in the IPK array. The number of non blank characters found is 
returned in KNT . 


5.3.22 SUBROUTINE PRAT ES 

Thi 3 subroutine processes the input reaction rate constant 
data to determine the form of the reaction rate. Three types of 
reactions are allowed, as shown in Table 5~5. 


Table 5~5: EXPRESSIONS FOR THE REACTION RATE CONSTANTS, k 


Reaction 

Input* 

Comments 

Expression 



-p -P * 1 000 / RT 

k - P T 2 e , 

A-P.N-P.B-P 

Arrhenius 

1 

l 2 3 

form 

as above 

KF or KR - P , P , P 

1 2 3 

j 

— 1 

1/3 2/3 

(P + P/T + P / T ) 

KF or KR - *P ,P ,P 

Landau-T el ler 

k - e 1 2 3 

12 3 

form j 

lo «10 k ’ p , * p , T 

KF or KR - % P , P 

1 2 

Log 10 form j 

1 

- - 




# p t p t and P are numbers written with E or F format 

1 2 3 


5.3.23 SUBROUTINE PREAX 


This subroutine processes the chemical reaction as 
determined by subroutine PRATES, It returns the stoichiometric 
coefficients and the corresponding species names. 


T>-36 
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5*3.24 SUBROUTINE PRES 


This subroutine is used (when JPFLAG = 1) to compute the derivatives 
of an input pressure table. 

This subroutine is also used (when JPFLAG = 0) to generate a pressure 
table through use of an average expansion coefficient, Ne. The generated table 

extends from the initial contraction ratio through the nozzle attachment point plus 
one normalized throat radius. 


I nput Pressure Table Deriv ative Computation (TPFLAG = 1) 

If a pressure table of NTB entries is input, the table of first deriva- 
tives is computed using: 


dP 

dx 


dP 

dx 


x 


n 


dP 

dx 


X NTB 


>(x n+l> ' P(x n-1> 


X (n+1) 


“ X 


P (x ) " P (x . 
n n-1 


(n-1) 

) 


(n) X (n-1) 


, 1 < n < NTB 


, n = NTB 


The pressure at the initial axial position is obtained by interpolation 
using subroutine SPLN. 


>- 8 / 


Internally Co r-r*^ Pressure Table Comp ut, 


.tion (TPFLAG = 0) 


An average equilibrium pressure expansion -efficient^ the 

u t u n»t N is computed by iteration using subroutine 
chamber to the throat, e » ^ 

SUBNE. The initial value for N g is 1.2. 


The approximate equilibrium 
position is computed from: 


contraction ratio at the initial axial 


N - 1 
e 


N +1 
e 


1 N -1 
2 e 

N +1 
e 

_ 


2 N -1 -j 


where Pi = pressure at the- initial axial position 

p = equilibrium chamber pressure 

A check is then made to determtne the compatibility between the 
nozzle geometry and the requested contraction ratio. 

K . 

^"< 1 + [ R U + R il’ [ l ' COS 

the circular arcs and R, overlap and the following error message Is printed 

INLET GEOMETRY INCOMPATIBLE WITH INITIAL CONDITIONS 
The program will proceed to the next case. 


Tables for pressure and its derivatives are constructed as functions of area 
ratio, a, and expansion coefficient, Ne. Formula 
used for the j + 1 iteration for pressure is: 



where n refers to the n th table entry. 
The pressure derivative formula used is: 




Next, tables for pressure and Its derivatives are constructed 
by the program. Table entries are at increments of 


-x/75 

for 

x t < x < 0 

(R d sin 0) / 25 

for 

0 < x < R^ sin 9 

1/25 

for 

R^ sin 0 < x < R 


where the initial nozzle axial position, x., is 


x i = 


(R + 
' u 


R i> 


sin 0. + 




- 1 


computed from: 

- (R + R.) * (1 - cos 9.) 
tan 0^ 


See Figure 5-1 below: 



c_op 


Figure 


5_1 NOZZLE GEOMETRY 


Area ratio and its derivative and (a and -g-) are found by the five formulae 
below: 


1 ) 


x < Xj + sin 0 




- 


[Rf- (x- Xi ) 2 ] 1/5_ 



2) Xj + R t sin Q, < x < - R u sin 9. 

a “ [^ 7 " V 1 - cos 9 j) - (x-x. - R. sin 9^ tan 0.j 2 


da 

dx 

= - 2 

'y/a~ • 

tan 0 . 
1 

-R - 
u 

sin 9 t 

< x < 0 


1 

a = 

1 + R 

u 


1 


- 


u/j 



da 

dx 


5 ) R d • sin e < x i R d • s in 9 + 1 
for cone 

a = £r t + (x-x^ * tan ej 2 

da__ ^ 2 * a ' tan 9 
dx 


for contour 


a 


= Y 


2 


_d§. = 2 . Y- 4^- 
dx dx 


Three special points are 


included in the pressure table. 


These are 


a point at x = Xj such that 



d(P/P c ) 

dx 


and two points at x = 0 such that 



\ 

P* 

i P c equilibrium 


d(P/P c ) 

dx 



2 

N +1 
e 


3 N e -1 
2(N - IT 


with R* - R u and R * ” R <r respectively. 
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The following items are input directly to the computer program 
described in Section 6 and shown in Figure 6-1, left to right. 


u 


RI 


RWTU 


THETAI 


THETA 


RWTD 



5.3.25 S UBR OUTINE— PR NTCK 

For the ODK option to print starting at step ND1, printing 
every ND3 r<1 step up to step ND2, this suboutine checks whether 
or not the current step should be printed. If it is to be 
printed this subroutine calls subroutine 0UTPUT . 


5.3.26 SUBROUTIN E REAXI N 

This subroutine processes SPECIES, RE ACTI0NS , and THIRD B0DY 
REAX RATE RATI0S input cards. Reference may be made to Section 
6.5 for a complete description of input requirements. A table 
of all species appearing in the input reaction set is generated 
for further processing by subroutine SELECT if required. 


5.3.27 SUBROUTINE SELECT 

This subroutine provides the interface logic required to 
select the minimum species list required for the kinetic 
expansion calculations. The subroutine is only used for the 
0DE-0DK interface. The list of all species appearing in the 
input reaction set is matched against the list of species 
considered for the equilibrium calculation. All species which 
appear in both a reaction and the equilibrium calculation list 
are selected for the kinetic expansion calculation. If a 
species appears in the reaction set but has ncvt been considered 
for the equilibrium calculation, the program prints an error 
message and terminates the current case. 


t 


- 9' 1 
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If the INERTS directive was specified those species 

specified under that directive will be added to the list for the 

kinetic expansion calculation along with the other species 
selected. 

If the INERTS directive was not specified, all those 

species, considered for the equilibrium calculation, whose mole 
fractions are greater than or equal to an input selection 
criterion will also be selected for the kinetic expansion 
calculation. Species selected in this way will be listed as 
inert species on the program ouput since they do not enter into 
chemical reaction. 

This subroutine also selects pairs of condensed phases if 
either of the phases passes one of the above selection criteria. 


5.3.28 SUBROUTINE STF 


This subroutine evaluates the thermodynamic functions Cp^./R, 
H t /RT , S£/R, from curve fit coefficients. The subroutine 
uses the same procedure as subroutine CPHS. The additional 
functions d(Cp ? )/dt and free energy, G°/RT, are also 
computed. The calculated functions are then converted to the 
internal computational units for use by the kinetic expansion 
calculations. Also, low temperature thermodynamic data from 
tables are used when required if the LTCPHS directive was 
specified in the program input. 


8501 28 
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5.3.29 S UB R 0 UT I N E_S T 0 1 C C 


For each reaction this subroutine constructs two vectors of 
stoichiometric coefficients. one for reactants and one for 
products. Up to 10 reactants and 10 products may be considered 
for each reaction. The total number of entries in the resultant 
linear reaction table is 600. i.e.. the sum of all 
stoichiometric coefficients can not exceed 600. 


5.3.30 SUB R 0 U T I N E_ S T 0 R N U 

The purpose of this subroutine is to store the 
stoichiometric coefficients Into the ITABLE arrays In 
C0MM0N/CSP RXC / . The coefficients will be positive for reactant 
species and negative for product species. 
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r,_0 " 


5.3.31 SUBROUTINE SUBNE 


Calculates the average equilibrium pressure expansion coefficient 

from the chamber to the throat by iteration from the following formula 
(Newton's method): 



where - 1.2. 

P* is the equilibrium throat pressure 

P is the equilibrium chamber pressure 

c 


This. subroutine. is used by subroutine PRES. 
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5.3.32 



This subroutine records a tabular function (X,Y(NY)) in tables of fixed 
length. The first and last event will always be tabulated and the table will 
either contain all of the values specified or will be at least half full. Once 
the number of events exceed the table length, the table will be repacked by 
the deletion of every other table entry and tabulation will proceed choosing 
every 2—^ event (N*0, 1, 2. . . etc. , where N is the number of times the 
table must be repacked). The table spacing will be a power of two except for 
the last event which will always be tabulated. 

The calling sequence parameters are: 

IFLAG - denotes type of entry to subroutine 

* - 1 first entry 

* 0 normal entry 

* + 1 last entry 

LIABLE - length of tables available for tabulation 
XTAB - table for tabulation of the variable X 

YTAB - table for tabulation of the variable 

LUSED - number of table entries currently used (output) 

X - the variable X 

Y - the variable Y 

IERR0R error flag 

NY - number of Y variables to be tabulated 

Note: One Dimensional Mach Number Tabulation Procedure 

At the initial axial position, X and Mach number are recorded. 
TABGEN is then used with LTABLE=50 (assuring 25 saved values) . The last 
recorded values are the end values for the transonic tables. 
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5 . 4 TRA NS MODULE SUBROUTINES 

The transonic flow module (TRANS) calculates the 
two-dimensional flow conditions in the throat region of the 
nozzle. It is used to obtain an initial data line for the MOC 
module. The analysis is based on a modification to the method 

q 

of Sauer . A detailed derivation and description of the method 
used is given in Reference 9. An abreviated description of the 
method is presented in Section 2.4. Setion 2.4 described how 
the method has been adapted to treat flows with variable mixture 
ratio. 

The TRANS module consists of the following subroutines: 


TRAN 

GETILV 

BANDI 

NEWT 

FCALC 

PTAB 

FINDT 

SAUER 

GETIL 

TRIM 
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5 . 4.1 


SUBROUTINE TRAN 


This subroutine is the controlling program for the transonic calculations, 
and is used to construct an initial data line for the method of characteristics cal - 
culations . Subroutine TRAN reads the Namelist $TRANS input as described in 
section 6 . The calculations given below are performed by this subroutine. The 
method of analysis used is described in detail in reference 


Transonic Calculations 


From data supplied by the ODK subprogram expansion coefficients, 


y , are computed for each of N zones as 


n M p ~y pj) n 


n = 1 , . . . , N 


The nomenclature for numbering zones and the slipline locations dividing the 
zones is given in Figure 5 • 2 . 

Slipline locations, Y , are calculated (using subroutine TRIM) as 


( 1 + a 1 k 1 ) , -1 


' 


. 0 

-a 2 k 2 , (i+a 2 k 2 ) , -i 

• 


Y 2 

• 


0 

• 

« 

« 


« 

• 


• 

# 

• 


• 


• 

~ A N-1 K N-1' * 1+a n-i k n-i* 


X N-1 


1 

m * 


- 


- - 
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zone 

index 


boundary 

Index 


slipline locations 


Figure 5- 


N 


Y n » 1 wall 


_U_ 

N-l 


N-l 


N-l 


n+1 

n+1 

— n 



n 


n-l 



1 


n-l 




axis 


’ Nomenclature for the Numbering of Zones 
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where 


p£+l a J+l 

K = 

" to n n a 1,2, ... N-l 

The sonic conditions p * end a* ere provided by the ODK subprogram end the 

partial mass flow rates , fo n , are input. 

Newton' s method (subroutines NEWT and BANK) Is used to calculate 

the transonic coefficients B. , Bj , Cj , and C 2 . Subroutine FCALC evaluates 

u n n n n 

the boundary conditions which must be satisfied. 


Distribution of Initial Lin e Points 

Subroutine TRAN next calculates the location of points on the initial 
data line used to start the method of characteristics calculations. First the 
radial position coordinates, r^ are computed. A sinusoidal distribution 

of the following form is used: 


where 

N is the number of points on the initial line before 
editing. 

e. is an exponent used for modifying the distribution 
function. Ordinarily a value of 1.2 is used. 

r is the radial coordinate at which the initial data line 
w 

intersects the wall. 
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The values computed for r ^ are then edited to prevent 
locating points too close to sliplines, or too close to the 
wall. Some of the editing procedures can be controlled by 
input, a3 described in Section 6.6. 


The axial coordinate positions, z^ , are then 
First , 


a value of z axi3 is found such that the Mach number 


computed . 

at 


r - 0,z - z axi3 is the same as at the point r , 
of z^ are located on a parabola as follows: 

+ ( (i\, “ r . ) / r ) * (z. 


The values 


z i - 


w 


'axis 


z ) 
w 


where z axis l° ca ted on the axis half way between the sonic 
point and the point with a pressure equal to the pressure at the 
wall at r-0. 


With r^ and z^ determined the transonic analysis is used to 
obtain corresponding values of pressure and flow angle. Using 
pressure as an independent variable, the flow tables computed by 
ODK (ODE if the TDE option used) are searched and values of p, 
V, T, and chemical species concentrations are obtained by 
interpolation. Subroutine GETIL is called for this purpose when 
one or more zones of constant mixture ratio are used, and 
subroutine GET I LV is called when a variable mixture ratio is 
used . 


Once constructed, the initial data line is integrated to 
obtain the nozzle flow coefficient C D , where 

C D " *2D / *1D 
and the result is printed. 
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Subroutine PTAB is called to write a table of boundary layer 
edge conditions for the results obtained up to the initial data 
line. This file is written on unit LUBLM and is continued later 
by subroutine PRINT as further values are computed using the 
MOC. If edge conditions for BLIMP-J are to be prepared, they 

are written on unit 50 . 
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5 . 4.2 


SUBROUTINE BANDI (A. N BW, NEQ, NMAX. B. X. INEW. KERR) 


Purpose 


BANDI solves a set of linear equations Ax = b where A is a nonsymmetric 
band matrix. 

Restrictions 

The matrix A is destroyed. 

Usage 

Calling sequence: 


CALL BANDI (A, NBW, NEQ, NMAX, B, X, INEW, KERR) 
where 

A is a matrix of at least NEQ rows and NBW columns 

(see below) which initially contains the elements of 
the band matrix, stored as follows: 

To solve a system of the form 


+ a 12 x 2 




+ a 22 x 2 

+ a 23 x 3 



a 32 X 2 

+ a 33 x 3 

+ a 34 x 4 



a 43 x 3 

+ a 44 x 4 

+ a 45 x 5 



a 54 x 4 

+ a 55 x 5 



To trensfo™ an original (N by M) MATRIX A(I, J) i„ to a packed (N by NBW) 
BANDED MATRIX AB <I,J), the following transformation applies. 


AB(I, JB) 
where JB 

and NBW 


A(I,J) 

(_NBW + i) 

BAND V/IDTH 


( I - J) 
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NBW 


NEQ 

NMAX 

B 

X 

INEW 


KERR 


A u 

A i,l 

0.0 

A i, 2 
a ll 

A i, 3 
a 12 

A 2,j 

a 21 

a 22 

a 23 

A 3,J 

a 32 

a 33 

a 34 

A 4,J 
A 5 , J 

a 43 

a 44 

a 45 

a 54 

a 55 

0.0 


is the width of the band (odd) . 


is the number of equations in the system. 

is the maximum number of rows for which A has been 
dimensioned. 

is the right-hand vector for the system. 

is the solution vector returned by BANDI. 

is a flag, set = 0 unless the coefficient matrix A is 
unchanged from a previous call to BANDI, in which 
case set INEW — 1. 

is an error flag returned by BANDI: 

= 0 if no error; 

= 1 if any diagonal element becomes zero 
during triangularization of A. 


Method 

BANDI finds the solution vector X by single-pass Gaussian elimination. If 
INEW = 0, the coefficient matrix A is upper-triangularized by forward sub- 
stitution. Backward substitution then yields the solution X. If INEW - I, 
BANDI assumes that the coefficient matrix A has already been reduced on a 
previous entry and that only the right-hand vector B has changed. Therefore 
the forward substitution is bypassed. 
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Programming Information 


Note that the matrix A is upper-triangularized by BANDI, destroying the 
original band matrix coefficients. For very large or ill-conditioned systems, 
one may increase the accuracy of the solution as follows: 


1) Save the original band matrix coefficients from A in a similar 
matrix AP. 

2) Call BANDI with INEW = 0 to obtain a solution x^ of Ax = b. 

3) Calculate b^ = Ax using the coefficients saved in AP. (A 

n n 

subroutine BMMULT exists to do this.) 


4) Calculate a new right-hand vector e = b-b . 


n 


n 


5) Call BANDI with INEW = 1 to solve the system A6x = e . 

1 n n 

6) Set x = x + 6 . 

n+i n n 


7) Repeat steps 3-6 until the desired convergence is attained. 


Error Return 

If, during triangularization of the matrix, any diagonal element becomes zero, 
an appropriate message is printed and KERR is set to unity before returning to 
the calling program. 



5 . 4.3 


SUBROUTINE FCALC 


The purpose of this subroutine is the evaluation of boundary condition 
functions required to be zero by the transonic analysis. Subroutine FCALC 
is called by subroutine NEWT in which Newton's Method is used to find the 
zeros. 


Input: 

Y_ 


n 


slipline heights n = 1, . . . N - I 


'n 


specific heat ratio for each zone n = 1, . . . N 


Bq , Bj , Cj , C 2 estimates for the constant coefficients sought by 
n n n n NEWT to satisfy the boundary conditions n = 1 , . . . N 


N 


total number of zones 


Output: 

The values of the following functions are computed and output. If the 

boundary conditions are correctly satisfied, each of these (Fj , F 2 , F^ , F^ ) 

n n n n 

are zero. 

At the sliplines, n = 1, . . . N - 1 

linear term v - v (i.e. match on streamline angle, 1st order); 

n n+l 


constant term v = v , , ; 

n n+l 


! “ f-lV <"n + ^ ^ C, Y n (lnY --i) 

n L n n n 


+ T <Vn +1)B l B 0 Y n +C 2 Y n‘ 
n n n 


-[ 


Tf> < v n+ n -n 


C. Y (In Y - 

I n ' 

n+l n+l 




+ 2 * y n+I + ^ B 1 


B n Y + C 9 . Y 
n+l n+l n+l 


-1 

n 


r - 



linear term P = P . , ; 

n n+l 


F 3 = v n B l P n" y n +i B i , p * 
n n+l n+l 


constant term P =p ± ■ 
n n+l ' 


f " P (V " + 11 B »„ Y n + °l n ln Y n + \] -*j PJ 

<Vn+1 + U B Vl Y " + C >„ +1 ' n Y " + \» ] -j 


At the wall , n = N 
linear term v M ( 1 , z) = z ; 




] N R 


constant term v M (l,z) = z ; 


[is (y N + 1)2 B 1 n • "r ( V N + 1) » 1 N 


+ — ( y N + i ) b , b 




* 0,1 


Since at the axis (0,z) - 0 it is required that C, = C 9 = 0. 

1 1 2 1 
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5.4.4 


SUBROUTINE FINDT 


This subroutine is called by subroutine GETILV to read unit 
16, which is a direct access file containing flow properties 
computed by ODK . Values are found from the file as a function 
of the input pressure, and values at the pressure are obtained 

from these by linear interpolation. 


5.4.5 SUB R OUTI NE GETI L (IZ, IP, PPSI). 

If one or more zones of constant mixture ratio are to be 
used, then this subroutine generates the initial data entries 
for the MOC module. The values are obtained using subroutine 
SPLIN for interpolation in the gas tables generated by the One 
Dimensional Kinetic module. The values obtained are p, V, T, 
and the chemical species concentrations. The values used for 
interpolation are read from unit KSTF1 . 


5.4.6 SU BROUTINE JIET I LV 

If variable mixture ratio is to be used, then this 
subroutine generates Initial data line entries for the MOC 
module. Values are obtained as a function of pressure using 
subroutine FINDT. The method described in Section 2.4.4 is used 
to obtain values at each initial data line point. 
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5.4.7 SUBROUTINE 


Ff MF, N f VAR, N VAR, FCA LC, WF , PERTV, EPSl. MAX IT, NUMIT. BIN. AB. NBW. KERR ) 

Given a set of n functions in n unknown variables where each function is 
coupled as below: 


(Xj ) i = 1 , . . . , n 

j = i-k, . . . ,i+k 
and Is j s n 

this routine will attempt by Newton's method to find values 


such that 


Method 



n 

E f, 2 (x.)=o. 

i=l 1 ] 


Newton's method is used to iterate for a solution vector. The matrix of 
partial derivatives, J, required by the method is generated automatically by the 
subroutine. This matrix will be banded of width 2k+l. The matrix inversion is per 
formed by subroutine BANDI. In the event Newton's method yields a vector which 
is farther from a solution in a least squares sense than the previous estimate, the 
increment vector is halved. Newton's algorithm for the (k+l) th iterant is: 

x (k+l) =x (k) _ jOcf J f (k) 


Restrictions 

The user must supply initial values for the solution vector and also a sub- 
routine to evaluate the functions. The subroutine must communicate with NEWT 
through C0MM0N statements. Subroutine BANDI is required. 
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Usage 


Call NEWT(M, F, MF,N, VAR, WF ' PERTV ' EPS1, MAXIT ' NUMIT ' 

NUMIT, BIN , AB, NBW, KERR) 


Index to Calling Sequence: 


Input: 

Output: 

Working: 


M, MF, N.VAR, NVAR, WF, PERTV. EPS1. MAXIT, NBW 
VAR, F, NUMIT, KERR 
BIN, AB 


Explanation of Calling Sequence: 

1) M is the length of the array containing the n functions. 

2) F is the array containing the n function values evaluated by FCALC . 

3) MF is an array of M control words: 

If MF(I)=0, include F(D 
if MF(D=1, exclude F(I) 

4) N is the length of the array containing the n variables. 

5) VAR is the array containing the n variables, x t i = 1, . . . n 

6) NVAR is an array of N control words: 

if NVAR(J)=0, include VAR(]) 
if NVAR(J) = 1, exclude VAR(J) 

7) FCALC is a name for the subroutine which calculates the 
functions, F(I). A program which calls NEWT must have an 
EXTERNAL statement containing this name. 

8) WF is an array of n weighting factors. These are used in 
conjunction with EPS1 to determine whether a solution has 
been reached. 

= WF(D 

9) PERTV is a perturbation factor used in calculating the partial 
derivatives required by Newton's method. If PERTV — c , then. 

Al_ = F (x + 6) - F (x) _ W h ere 5 = m ax ( I e x| , e* 10 3 ) 
dx 6 II 


5-112 



10 ) 


tefUen re:Xd b ! U K^ US = d EP° sl de 'tT lne w f ether a solution 

C 1 PS1, then a solution is claimed when 


n 

E 

1=1 


<a, i F i )2 86 <i 


a) 

12 ) 

13 ) 

14) 

15) 

16) 


MAXIT is the maximum number of iterations allowed. 
NUMIT is the number of iterations required for solution. 

dlm e ‘„ S S ?o n n a N a + y r qU ‘ red ^ LESKand mUS ‘ bS at least 


of s ubr out iruf LE SK S aTd m T CO " t f ining the augmented matrix 
suorouune LESK and must be at least of dimension AB(M , N+l). 


NBW band width - 2k+l, see subroutine BANDI. 
KERR error indicator, see subroutine BANDI. 
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5.4.8 


SUBROUTINE PTA B (PflNE D) 


edge 

line 

BLM. 

are 


This subroutine is used to write a table of boundary layer 
conditions for the results obtained up to the initial data 
for the MOC. Unit LUBLM is used for passing this data to 
If edge conditions for BLIMP-J are to be prepared, they 
written on unit 50 (i.e., I P TAB - 1 in $0DE. see Section 


6.M.3.2. ) . 


one 


The following procedure is followed to make 
-dimensional throat coincident with the axlsymmetric throat. 


1 ) 


The pressure, 
( r-1 , x-0) must 
above ) . 



f at the axlsymmetric throat 

given ( P0NED in the calling sequence 


2 ) 


3 ) 


The axial position, 
tables corresponding 
by interpolation. The 
position are deleted. 


x*, in the one-dimensional gas 
to the above pressure is obtained 
points downstream of this axial 


The table of axial positions 
one-dimensional calculations - TABGEN) 
to fit smoothly with the axlsymmetric 


( saved in the 

is recoordinated 
geometry using: 


x’ 


X , + ( X 



) 


where 

x' » recoordinated axial position 

x - tabulated axial position 

x =. initial axial position 

x« - axial position from 2) above 
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) The radial coordinate, corresponding to each 
recoordinated axial coordinate, is computed using the 
input geometric constraints. Reference may be made to 
Figure 6-1 for a description of the inlet and throat 
geometry. 

5) The axial and radial coordinates and the fluid 
properties are punched. The punched cards may be 
input directly to the boundary layer computer program. 
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5.4.5 SUBROUTINE SAUER (R. X. Y. G, N, I, PPS, THETA) 

The purpose of this subroutine is to compute fluid dynamic properties in 
the transonic region of a rocket nozzle. The method used is based on the 
analysis of Sauer and is applicable to the situation where the flow is assumed 
divided into N zones (i.e. striated) , each of which is characterized by a constant 
expansion coefficient, y . The analysis has been further modified so as to 
extend its range of applicability to nozzles with small (R/r* ^ .5) radius of 
curvature in the throat section. 

Given position coordinates (r,x), this subroutine returns the fluid dynamic 
properties (P/P* , 0) . 

Calling Sequence 


Input; 


R 

X 

Y 

G 

N 


Output 


I 

PPS 

THETA 


Method 


radial position coordinate, r 
axial position coordinate, x 

vector Y ; n = 1 . . N containing the zone boundary 
n . 

coordinates 

vector v ; n = 1 , . . . N containing the zone expansion 
n 

coefficients 

total number of zones 


zone number, n, corresponding to r 
P/P* at (r,x) 

0 at (r,x) , the gas streamline angle in radian 


R' = R + 

4 

X =(|r) 1/2 


If only one zone is specified (N = 1 ) , then 
u' =-i- (y + 1) B 2 r 2 + B 0 + Bj X 

V' (y + l ) 2 B 2 r 3 + -j- (y + 1) Bj B q r + -i- (y + 1) B 2 r x 
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where 


B 2 = 2 1 

1 (y + 1) R 7 

B = — 1 

0 4 R 7 

If more than one zone is specified (N ^ 2) , then 
u’ = ±( y + 1) b 2 r 2 +C 1 lnr.+ B 0 +Bj X 

v> = 16 + 1)2 B 1 f3 + T (y + 1} B i C i r (In r - 

+ -| ( y + B i B 0 r + c 2 r+ [r(y + 1] B i r + < V r ] x 

where the coefficients Bq, B^, Cj, are input through COMMON/NAMBC / 

and the n th value is selecte'd, corresponding to the n th zone. The zone, n, is 
determined such that 

W r * Y n 

For all N 


u = 1 + u* 

V = v‘ 

P/P* = 1 - V U 1 
n 

0 = arc tan (v/u) 
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5.4.U) SUBROUTINE TRIM (A , X. B. N. NNj 
This subroutine solves the system 

Kx = b 

for X where A is tridiagonal, i. 

all a^j = 0 if 1> j+1 or 1< )-l. 

The method used is Gaussian elimination, 
railin g Sequence 

A Is the input coefficient matrix and must be dimensioned at leas. 

A(N, 3) . The elements a^ must be input as 




** 

A(l, 2) A(l, 3) 


— a n a 12 

A(2, 1) A(2,2) A(2, 3) 


a 2 1 a 22 a 23 

A(3, 1) A(3, 2) A(3,3) 

• 

• 

. 

a 32 a 33 a 34 

. 

• 

• 

• 

A(N, 1) A(N , 2) — 

m 


• 

• 

a n,n-l a nn 

- J 

The contents of A will be destroyed by TRIM. 


x Is the output solution vector X and must be dimensioned at least 

X(N). 

B Is the input vector b and must be dimensioned at least B(N> . 

The contents of B will be destroyed by TRIM. 

N Is the order of the system. N £ 2 is required. 

NN Is the dimension of A (NN,3), X(NN), and B(NN) in the calling 

program. 
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5.5 MOC MODULE SUBROUTINES 


The Method of Characteristics (MOC) module i a used to 
calculate the loss in nozzle performance caused by flow 
divergence, including the effects of chemistry and mixture ratio 
variation. The effect of shock waves can also be calculated. 
Obtaining an accurate nozzle performance prediction usually 
requires a closely spaced characteristics mesh. in order to 
allow both shock waves and a fine mesh, random access files are 
used for storing and retrieving mesh point information. 
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The TDK module consists of the following subroutines: 


TDK 

ATSHCK 

AXISPT 

CHAR 

CHECK 

CKEXIT 

CKSHCK 

CNTRL 

CNTRL1 

CNTRL2 

CNTR1 2 

CNTR1 3 

CNTR1 *1 

CNTR1 6 

CNTR21 

CNTR31 

CNTR91 

CRIT 

CUBIC 

DSPT 

EF2D 

ENCALC 

ERR0RZ 

FTHRST 

GETPT 

GPF 

GPFKIN 

GPFPG 

INPT 

INPTR 

INPTRS 

INPTR1 

INPTS 


INSRT 

INTEXT 

ITER1 

ITER2 

ITER3 

MLCK 

MRCK 

MRCK1 

NESK 

PRINT 

PRINTS 

SAVPT 

SCK 

SDERIV 

SETID 

SHCKA 

SHCKA1 

SHCKL 

SHCKR 

SHCKW 

SHCKW1 

SH0CK 

SINT 

SUBIL 

SUBILR 

TCALC 

THERM 

TSTDK 

TW0D 

WALL 

WLCALC 

WLPT 
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5.5.1 


SUBROUTINE TDK 


This subroutine is called by subroutine MAIN and is the 
driver for the MOC module. It performs the functions described 
below . 


First, the MOC mesh point arrays P, PP, Q, Q3A, and 
Q4A, are initialized to zero. If the TDE option is to be 
executed, then the equilibrium gas properties tables described 
in Section 2.5.2 are converted to the system of units used 
internally by the MOC module and are stored for its use. 
Subroutine CHAR is then called to read the $MOC Namelist input, 
and perform all calculations that are preliminary to the MOC 
construct ion . 

If the MOC construction is to ignore shocks 
(SH0CK-O IN $M0C ) , then subroutine CNTRL is called, otherwise 
subroutine CNTRL91 is called. 


850902 
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5.5.2 


SUBROUTINE ATSHCK 


This subroutine calculates an attached shock point at axial 
position XA on the nozzle wall. Properties on the upstream side 
of the shock are calculated at point 3a. Values used in the 
calculation of point 3 a are from the known points 4 and 1 . 
Properties on the downstream side of the shock are then 
calculated at point 3b. Point 3b is found by solving the shock 
relations given the upstream conditions at point 3 a and a 
streamline deflection angle equal to the change in wall angle at 
position XA. 


XA 



The procedure consists of 4 steps, as follows: 

1 ) Locate point 2 on the RRC 4-1 such that the LRC from point 2 
reaches the wall at XA. 

2) Using point 2 and point 4, calculate values at point 3a. 

3) Iterate step 1 and 2 until the point 3a properties converge. 

4) Find the shock angle, 83 , corresponding to the upstream 

conditions at point 3 a and a streamline deflection angle 
equal to the change in wall angle at position XA. 
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5.5.3 


SUBROUTINE AXISPT 


This subroutine calculates an axis point (or point on a 
center body of radius, r ) using the known points 4 and 1 . 


1 



or axis streamline (r =0) 


Points 1 and 4 are known points and point 3 is the unknown point 
to be computed. At point 3: 


and 


r - r 

3 c 


0 3 = 0 . 


and 


Initial estimates for values at point 3 are: 
A 3 - A U ■ 6 3 -s v “3* c V V Y « 


°3 ’ 


4 3°3 H 3 ' # 1 ° 1 H , 


G 3 H 3 - G,H, 
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The axial location of point 3 is calculated from 


r - r , 
c 1 


x 1 + ~t a n _ T7 0 1 - a 1 - a ^ ) 

The flow properties at point 3 are calculated from 

sine 


P +P 

n 3 1 fl 

*1 2 


lj>[-^G,H 1 -A 3 G 3V ( 0 ,VG 3 H 3 , ---]<*3-x,) 

- ? <VV 8 1 I 


1 [i_.l 

2 L Y„ Y. 


P 5 * P 


3 K 4 1 P 


[ o 2 ! 


4*3 

- 1 exp {- j [ A 4 + A 3 ][x 3 -x i| ] 1 


1 

2 L V Y J 

P * Y 3 


t 4 [ }TN 

4 v 4 


exp {- 1 ^ 


For^the 1st iteration (all iterations if constant Y option): 

1_ 

V 3 - { vj - 4 (P 3 ~P 4 )/(p 3 + p 1< ) } 2 , Bernoulli Equation 

For subsequent iterations (calculated in GPFKIN or GPFPG): 

V 3 - { 2(H t - l c i h i ) } 2 , Energy Equation 

The above equations are iterated ( i * 1 , . . . ) until x^, P^, P 3 > 
T , and V 3 converge to the required accuracy. 
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Throughout the method of characteristics computations the 
variables used are equivalenced to entries in dimensioned 
arrays. This equivalency of variables is always in the same 
order as prescribed in Table 5-6. This equi valencing occurs for 
the I subscript in the following arrays: P(I f J), pp(l,j), PS(I), 
PSS(I), Q ( I , J ) , Q3 A ( I ) , and Q4A(I). 


P.A3E BLANK NOT FJLMEp 
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TABLE 5-6 


EQUIVALENCE TABLE FOR MOC VARIABLES 


Variable 


Uni ts 


P(1 , J) 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 
1 1 
1 2 
1 3 
1 4 
1 5 
1 6 
1 7 
18 
1 9 
20 
21 
22 

23 

24 

25 

26 

27 

28-30 

31 


B 


pressure 

density 

streamline angle 
velocity 

radial coordinate 
axial 

temperature 

term computed in subroutine GPF 

.. it n 


lb f/ft 

lb m/ft 
radians 
ft/sec 


n 

H 


n 

it 


tt 

it 


it 

it 

it 


IT 

It 

It 


Stream function (0 at axis, } 

F, term computed in subroutine GPF 

G , " ” ” „ .. 

a « •' " 

"■ . .. 

•; 

dividing streamline flag 

zone number _ . . 

point ID no. in direct access file 

0, shock angle . 

point type (axis, interior, etc.) 

;S 0 5o"°if previous streamline pt. 

ID no. of previous pt . on the c 
ID no. of next pt . on the oha . 

ID no. of pt. on the other side of shock 

not used currently 
c , mass fraction of 3 pecies 1 


60 


mass 


fraction of species 60 
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5 . 5.5 


SUBROUTINE CHECK (N0) 


ThiS 3Ubr ° Utlne compares current and previous values of 
e flow variables v 3 , r^ and T for relative 

on ver gence by calling subroutine CRIT. As soon as a variable 
is encountered failing the test, the variables are updated one 
iteration and the program returns with the convergence flag set 
failed (N0 - 1). If convergence is achieved the variables 
are updated one iteration and the subroutine returns with the 
convergence flag set as passed (N0 = o). 
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Subroutine C KEXIT (P , EFLAC \ ) 


This subroutine checks if a point, P. is outside the nozzle 
by comparing the axial location, Z, against the nozzle length. 

ZEXIT . 

If z S ZEXIT * 1.03, then set EFLAG - 2. 

If ZEXIT » 1.03 > Z S ZEXIT, then set EFLAG - 1. 


5.6.7 S u br^ot ^ne_C KSHCK__(_SFLAG2 

This subroutine checks for a crossing of right running 
characteristics, which determines the start point of 
right-running shock wave. The shock flag, SFLAG , is set to 1 
when a crossing has occured, or will occur at the next point. 
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5.5.8 


subroutine cntrl 


The purpose of this subroutine is to control the 

construction of the finite difference mesh for the method of 
characteristics solution of the supersonic nozzle flow when the 
LRC method is used (SH0CK-O in $M0C). Left running 

characteristics and fluid streamlines are constructed starting 
at the nozzle throat point (r - 1, x - 0). These left running 

characteristics extend from the initial data line or nozzle axis 
to the wall. The mesh points are calculated by subroutines 
INPT, AXISPT, WLPT and DSPT under control of this subroutine. 

Additional points are inserted in the mesh by subroutine 
CNTRL by property averaging using subroutine INSRT. The 
circumstances which cause point insertion are listed below. in 
each case a point is inserted along the initial line or the 
previous streamline and the calculation of point 3 is repeated: 

D If subroutine INPT or DSPT find point 1 to fall beyond 
the nozzle wall. 

2) If subroutine IMP! rinds poInt , to rall aboy( , a 
dividing streamline point. 

3) If subroutine INPT or DSPT find 

I ® ~ e 4 l > Ae tu) > input item DTWI 

10 If a wal1 P° int on the circular arc immediately 
downstream of the throat is calculated such that 

l e 3 " 6 i> I > Ae (1)C * input item DWWCI 

or if a wall point between the circular arc and the nozzle exit 
point is calculated such that 

l e s “ e i> l > A0 w , input item DWWI 
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5) When Iterating to locate the end of the nozzle -all. 

(I " PUt t 0 !l r Txx 0 SPT EP lipST. DSPT, or WLPT locate point 

6 ) If subroutine AXISPT, . grea ter than 

3 such that its distance from point g 

input item DS times the square root of the «ach number. 

gt the end of each completed charac, terlstl. 

points are examined and points discarded as described below. 

Only interior points (10-2) are to be discarded. 

For „ . 2 to n - IPPW-1. fro " the ln “ lal U " e ° P 

axis to the -all) discard point n if 

1%., - % I * I Vi - % I < 


<r n _, - n„>‘ * ( 2 n -1 ' 2 n> 


< e 


-here e, and e 3 are the input quantities ETUI and ES. 

Whenever a mesh point calculation or insertion 1 = 
successfully, the output subroutine. PRINT. a ca 
the point may be printed. 

r-TBL also integrates the -all pressure by 
Subroutine CNTRL also inu » f 

a t-vws ayi ai component ot rorce 

trapezoidal rule to determine the axial P 

existing between adjacent wall points, 

AF - 2 xr»* / *P r dr - § (P > P J( r , ' r H ^ r 

r 


Total thrust is item found by 

* r 

F - F + 2itr» / 2 P r dr 

t 1 

initial line as calculated by 
where F is the thrust across the initial 

subroutine CHAR. 
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DETAILED DISCUSSION OF CNTRL 


Detailed documentation for subroutine CNTRL of the TDK 
computer program is presented on the following pages. It is 
intended that this documentation be read in conjunction with the 
FORTRAN listing of subroutine CNTRL. 

The CNTRL subroutine calculates flow field points using 
point calculation subroutines and constructs the method of 
characteristics point mesh. The points are calculated in the Q 
array. The left running characteristic (LRC) under construction 
is stored in the P array, and the previous characteristic is 
stored in the PP array. In these two dimensional arrays (i.e., 
Q, P, and PP) the column number is the point number and the row 
number is the flow field property number. The flow field 
properties storage is defined in Table 5-6, subroutine CHAR, and 
is the same for all three arrays. For dividing streamline 
points, two arrays are required for Points 3 and H . Storage for 
these extra points are provided in Q. 

Besides the point calculation subroutines (AXISPT, DSPT, 
INPT , and WLPT) , subroutines ERRORZ , INSRT , PRINT, SPLN, SUBIL, 
and TIMERX, are the only other subroutines called directly from 
CNTRL. 

The CNTRL subroutine is divided into areas 1 through 9. A 
description of the programming of each of these areas is 
presented below. Presented in Table 5-7 are definitions for the 
variables used by subroutine CNTRL. FORTRAN variables which are 
input to the program have not been included in Table 5-7. These 
variables are described in Section 6.7.1. 
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Area 1 : 


In this area of CNTRL constants are initialized and the 
Point 3 arrays are zeroed. Other variables needed by CNTRL are 
initialized in subroutine CHAR. Subroutine SUBIL is called and 
the first initial line point is brought in and stored in 
PP(i, 1). The point is also placed in the Point 1 working 
storage and printed. The same procedure is followed for the 
second initial line point; this time storing the point in 
P(i, 1). A check is made to see if an error was detected by 
subroutine PRINT. The point counters IP for the P array and IPP 
for the PP array are set to one. 

Area 2: 

This area defines the general procedure for initial line 
point set up. The initial line point counter, MS, is 
Incremented and IP and IPP are initialized to one. Initial line 
point number MS is brought in and stored in P(i, 1). It is also 
placed in Point 1 and printed. If a dividing streamline point 
calculation is indicated (i.e., PS [JFLAG] not zero), the point 
is also stored into the next point in PP. 

Area 3: 

The counters IPP and IP are incremented and the print 
subroutine is called with ID as set by the point subroutine just 
completed (see subroutine PRINT for the definitions of ID). If 
too many points have been calculated along the LRC (i.e., IP < 
IPMX) the error flag is set to 7 and CNTRL is exited. 
Otherwise, the values Just calculated in Q(i, 3) are stored in 
the LRC array and Q(i, 3) is cleared. If the Point 3 is a 
single point (interior point), this part of the logic is 
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complete . 
repeated . 


Otherwise , 


Q3A(1) is placed in Point 3 and Area 3 


i s 


Area 3.5 


the exit Plane option has been requested (EX1TP, . 

n° check is made on the end of wall f,» , „„ * true) ’ 

is used to stop the oai 8 0H2 ^ that otherwise 

stop the calculation. The E0W? n a „ , 

end of the wall has b epn fl g 13 3et when the 

nas been reached within a t-ni 
(nominally ,01). n a tolerance of EPW 

the nozzle calculation °^° UlatI ° n has becn r equested, as soon as 

wail la art if lcally 0 \ ’? to one, the 

. . ^ extended a distance DELWX in 

direction. The slope used for this » , 3X131 

last two points in thp X ension is that of the 

Wal1 tab le. The flag exit™ « 

assure that this is only done once The • U86d t0 

10 Witten on unit ITSTAB to be uied e'”'” 1 '"'"M 

Plane point. The statement "BEGIN EXIT p L l firSt eXU 

Printed. XIT PLANE CALCULATION" i s 


Programming described in th^h" ^ 15660 requested and the 
the last entry ! * ^ P ""«~P'> “» executed, 
the insertion process TsVo'T’ "'“S'’’ ^ If 

— - on ."J «r.r l iast tu ° — 

exit plane are found by interpolat. V31ue3 3t the 
foe later use. If the point just writt Urltten ° n IISTAB 
Oh If the first point on the LEG is b ° Ut ' ” aX ‘ 3 P ° Int ' 

Phogram goes to statement ,T 00 to wrltHur!! ‘ ‘ Pla " e ' ^ 
aummary and to terminate the caloulat, eXU Pl3n<i 
Phoceeds to Area q. ooloclatlon. otherwise the program 

If the exit plane calculation i « in 
already crossed the exit olane Progress and the LRC has 

exit plane successfully. checks are made to 
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TP't are within their minimum 
s „ if NCHEPE , NPTEPE, and P(6, IP) ul3e It 

I., If ... Area » l. entered at tne -S "ring. other 

13 entered at ,610 and a special check Is -de. 

Area 4: 

If Ar3a 4 is entered at the be g lnnln g . ^check ^ 1>st 

see If the point Just used on ^ program g oes to Area 7. 

potnt (IPPW - «. , BcHEp£ ^ a3 foUows, If 

Otherwise , starting ^ st calcu iated Is not beyond the 

EXITCK 13 true, and t P value, transfer is 

a mthfpe exceeds its maximum value, 
exit plane, and NCHE pLANE OPTION REQUIRES 

n the error message "EXIT plane. 

made to Area 9 an If no error was found, the 

LARGER NCHMXE, NPTMXE" is pr n e . insertion table 

. TPPW „ ip and checks to see if the 

3 n ... «. — - — 7 - 

If the insert tabula “^Tn the\able. The 

r:: 1 ;:- » — » P i:::;ri:: 

insert a point along a streamline, « and 

. - :r„r:; r Lsi:ti::rd boip-te the «c 

then come back to the po n ln3 ertlon occured. This 

that was being computed ™ polnt numbers 

procedure Is carried lnto the PP array. IP la 

IT(LAST) through IP Of the tt(LAST)»! so that the 

then set >0 ^ “ - — 

fc “ l: -n fP-ved from the IT table by setting EAST - 

LAST-1. The program then goes to 


Area 5: 

w , t op has been completed. 
Area 5 is entered when a LRC has 

non table has been emptied. Next, 
means that the insertion table na 


This 
the PP 
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array Is updated by transferring into it the values in the P 
array. if the LRC just completed is in the nozzle, the LRC 
surface is integrated from the axis (or initial line) to the 
wall using the trapezoidal rule method to obtain the mass flow 
rate. The integral to each point is stored in the array 
XMASSF. Tests are made on the input variable MASSFL and print 
out of the mass flow is done accordingly. Next, an adjustment is 
made to the pressure so that mass flow is conserved. The 
density is recalculated from the perfect gas law. At the end of 
Area 5 the edit logic using e Q and e g is carried out as 
discussed earlier. The characteristic number, LRC, is then 
updated and the program transfers to Area 2 if the next LRC 

starts from the initial line, and to Area 6 if the next LRC 
starts from the axis. 

Area 6: 

Area 6 is entered when it has been determined that an axis 
point is to be calculated. The point counters (IP and IPP) and 
the insert counters (CS) are initialized and Points 1 and 4 are 
set up. The axis point subroutine is called and return Is made 
with either the axis point calculated or the INSERT flag set. 
If an insert is requested or if Point 3 is found to be farther 
than a distance DS downstream from Point 4, a new Point 1 is 
inserted half way between the old Point 1 and Point H . Inserts 

are counted and an error is detected if more than the maximum 
are required. 

If the axis point has been successfully calculated and an 
insert was required, then subroutine PRINT is called to print 
the inserted point. Transfer is then made to Area 3. 

Area 7: 

Area 7 is entered for the purpose of performing a wall point 
calculation. If the point to be calculated is not a wall point 
the program goes to Area 8. If a wall point is to be calculated 
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checks are made concerning the exit plane option. If the exit 
plane option is in effect, the point to be calculated is either 
on an LRC which: (1) ends upstream of the nozzle exit plane 
( EXITCK false), or (2) is one of the NCHMXE LRC’s ending on the 
nozzle wall extension, or (3) is a LRC farther downstream which 
is ended as soon as a point is calculated with an axial 
coordinate greater than XEXTEN . In the first two cases the wall 
point calculation proceeds normally as described in the next 
paragraph. In the third case the program goes to Area 9 and 
constructs an end point for the LRC so that it can be finished 
without a wall point, and then goes to Area 4 . However, if the 
point just calculated is beyond XEXTEN then it is not necessary 
to go to Area 9 and the program goes directly to Area 4. 

The wall point calculation logic is as described in Area 6 
for an axis point with the exceptions noted below. The Point 2 
is set up rather than Point 1. After a wall point is 
calculated, the streamline angle is checked to be sure it has 
not turned more than A6 W . The axial pressure component is 
integrated to determine the thrust increment for the wall 
differential just completed (see the equations discussed 
earlier). If a point was inserted on the previous streamline, 
it is entered into the insert table. When the wall point 

procedure is completed the program goes to Area 3» 

% 


Area 8: 

Area 8 is entered for the purpose of performing an interior 
point or a dividing streamline double point calculation. The 
point calculation logic is as follows. A check is made to 
determine if the point to be calculated is a interior point or a 
dividing streamline point. Points 2 and 4 are set up 
accordingly and the appropriate point calculation subroutine is 
called (INPT or DSPT) . If it is necessary to. insert a point, 
the insert procedure is the same in both cases and is also the 
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same as used for a wall point calculation as previously 
described. These three point calculations are set up 
differently, but use the same code for the insert procedures. 

Area 9: 


This area of the subroutine contains the error termination 
procedure, the nozzle exit plane summary print procedure, two 
error messages, and the end point procedure for the exit plane 
option . 

The error termination procedure begins by calling the error 
subroutine, ERR0RZ , giving it the number of the error statement 
to be printed. Subroutine PRINT is then called so as to print 
the last point calculated. If exit plane points have been 
saved, these also are printed. Subroutine CNTRL is then exited. 

The nozzle exit plane summary print procedure is as follows. 
A title is printed, then each exit plane point is read from unit 
ITSTAB and printed uing subroutine PRINT. Subroutine CNTRL is 
then exited. 

The two error messages printed in Area 9 relate to the exit 
plane option. When this option was added to the program, these 
messages were placed here rather than in subroutine ERR0RZ. 

The end point procedure for the exit plane option found at 
the end of Area 9 is that described in Area 7. 
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TABL, E 5-7 

DEFINITIONS FOR FORTRAN VARIABLES USED BY SUBROUTINE CNTRLt 

Variables beginning with I through N are typed as integer. 
All others are typed as real unless noted as logical. No other 
types are used. Assumed values are listed in parentheses. 

Variable Definition 


ARATI0 Area ratio of wall point 

CS Insertion counter 

CSMAX Maximum allowed number of insertions (20.) 

DELWX Length of nozzle extension for exit plane option 

( 10 . ) 

DS2 DS * DS; where DS is input 

E0W1 Flag set in WLPT when the end of nozzle wall is 

detected 


E0W2 Flag set in WLPT when iterations to reach end of 

wall point are complete 

ES2 ES * ES; where ES is input 

EXITCK Logical variable set true for the exit plane 

option as soon as the end of the nozzle is 
reached 

EXITPL Logical input variable. Input true if the exit 

plane option is desired (.FALSE.) 

ID Point type input to subroutine PRINT 

IERR Error flag, set to error number 


t The following input variables are used by subroutine CNTRL: 
DS, DTWI , DWWI , EPW , ES, ETHI , IMAX, and IMAXF . These 
variables are discussed in Section 6.7.1 
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TABL E_5 -7 

^i»itions pop fortran variables used „ subroutine cntrl 

(Continued) 

Variabl e 

Definit ion 


IMX 

insert 

IP 

IPMX 
IPP 
IPPS 
IPPW 
IT (20) 

ITSTAB 

JFLAG 

LAST 

LASTMX 

LRC 

MASSFL 

MS 

MW 

N 

NCHEPE 


Number of .enables for a point 
Insert fi^cr * 

insert a point n ° n Z6r ° value asl <s CNTRL to 

Point counter for the r nr 

tne LRC under construction 

Maximum number of points allowed on a LRC J,51) 

Point counter for the last LRC fi„l, hed 

Value of ipp for Point K 

argest ipp value, that of the wall point 
Insertion table where fho 

stored for insertions requiring' T»c co n ,.Te e t r ion are 
printed Us)* eXlt plan « ore stored until 

dividing atrefmlin^ h double n points a>S ldentlf J' 1 "8 
Number of last entry into IT array 
Maximum number nr iur ~ 

the original LRC (20^ eneratln g insertions for 
Number of LRC 

Invariable controlling the mass flow print 

Initial line point counter 
Wall point counter 
Statement number for ASSTPNrn 

the point calculations controlling 

For exit plane option LRr _ 

extension region counter in the wall 
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TABLE 5-7 


... “» - “ m 

(Continued) 

De finition 

Variable 


NCHMXE 

nexitp 

NPTEPE 

NPTMXE 

P(70,275) 

PP ( 70 , 27 5 ) 

PS ( 70 ) 

PW( 1 208) 
Q(70,5) 

Q3 A ( 7 0 ) 

QU A ( 70) 

REXIT 

XEXIT 

XEXTEN 

XMASSF (275) 


For exit plane option, number of LRC's to 
calculated on the wall extension (6) 


Exit plane point counter 


For exit plane option LRC counter in the region 
beyond the wall extenslo 

For exit plane option -*^^^11 extension 
allowed in the region beyond the 

( 10 ) 

Array in which LRC is constructed 

Array containing LRC just completed 

Working storage for Initial line point 

ftrray containing wall point coordinates 

working storage for point calculations, column 
number is the point number 


3A of dividing 
4 A of dividing 


Working storage for Point 
streamline double point 

Working storage f ° r Point 
streamline double point 

Radial coordinate at end of noaxle wall 

gxlal coordinate at end of nozzle wall 

For exit plane option, *^® t NCHMX E 
extension reached after 

a i n* purated mass flow rate of 

Array containing integrated 

each LRC point 
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5.5.9 


Subroutine CNTRL1 


Given a r i ght- r unn i ng characteristic (RRC) stored in the 
PP( - *-) array, and the starting point of the next RRC stored in 
P(-,IP), this subroutine computes a RRC emanating from P(-,IP). 
The RRC is traced until it reaches the axis, or goes outside the 
nozzle . 


5.5.10 Sub routine CN TRL2 

This subroutine performs the same function as subroutine 
CNTRL1 , but applies to a left-running characteristic (LRC). 
Here, the calculation is carried out until the LRC reaches the 
wall . 


5.5.11 Sub r outin e CNTR1 2 

This is a control subroutine for the shock calculation. It 
is called after an induced r i ght-r unni ng shock has been 
detected. Its function is to compute a right-running shock 
point, followed by the construction of a LRC to the wall. The 
procedure is repeated until the end of nozzle is reached, or the 
shock wave reflects off the center line. At this point control 
is returned to CNTR91 and CNTR1 3 is called. 


5.5.12 Sub r outine CN TR1 3 

This is a control subroutine for the shock calculation. Its 
function is to compute a left-running shock point, followed by 
the construction of a RRC from the shock point to the axis. The 
procedure is repeated until the end of the nozzle is reached, or 
the shock wave reflects off the wall. At this point control is 
returned to CNTR9 1 and CNTR1 4 is called. 


85101 1 
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5 . 5.13 Subroutine CNTR1J4 

This is a control subroutine for the shook calculation. Its 
function is to compute a right-running shock point, followed by 
the construction of a LRC from the shock point to the wall. The 
procedure is repeated until the end of the nozzle is reached, or 
the shock wave reflects off the axis. CNTR1 4 is similar in 
function to CNTR12, but it is designed for multiple reflections, 
while CNTR12 is designed to start the induced shock calculation. 


5.5.1M Subroutine CNTR16 


This is a control subroutine for the shock calculation. Its 
function is to compute a second attached shock wave. The 
construction is as follows. First, the flow field is computed 
assuming the second shock wave is negligible. When the end of 
the nozzle is reached, then subroutine CNTR1 6 is called. By 
using existing information an attached shock is calculated at 
the wall location having axial coordinate XB. Next, a 
right-running shock wave is constructed from XB. A LRC is 
traced from each shock point to the nozzle wall using subroutine 
CNTR12. The calculations stop when the wall end point is 
reached . 


851 01 1 
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5.5.15 Subroutine CNTR21 


This is a control subroutine for the shock calculation. Its 
function is to compute r i ght -r unn 1 ng characteristics beginning 
at the bottom of the initial data line. Successive RRC's are 
constructed starting at the initial data line and ending at the 
axis or exit plane. Once the wall is reached, successive RRC's 
are constructed starting at the wall and ending at the axis or 
exit plane. The procedure is repeated until the nozzle end 
point is reached. However, if an induced r i ght^-r unn i ng shock is 
detected, then control is returned to CNTR91 and subroutine 
CNTR12 is called. 


5.5.16 Subrou t I neCNTR 3 1 

This is the control subroutine for the attached shock wave 
calculation. First, it computes right-running characteristics 
beginning at the bottom of the initial data line. Successive 
RRC's are constructed starting at the initial data line and 
ending at the axis or exit plane. Once the wall is reached, 
successive RRC's are constructed starting at the wall and ending 
at the axis or exit plane. The procedure is repeated until 
position XA is reached on the wall. Control is then returned to 
CNTR91 and subroutine CNTR1H is called. 


5.5.17 Subroutine CNTR91 


Th i s is 
calculations . 
CNTR16, CNTR21 


the master control subroutine for the shock 
It calls subroutine CNTR12, CNTR 1 3 , CNTR14, 
, and CNTR3 1 as required to compute the flow field 


from the initial line to the end of the nozzle. 
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5.5.18 j SUBROUTINE Cm IM • XM ' 

The purpose of this subroutine is to compare two valves for absolute 
or relative convergence and return an indicator stating if convergence 
has been achieved. 

nailing Sequence. : 

XN x n , input 

XM x m . input 


indicator, output 



N0 = 0 

implies convergence 



N0 = 1 

implies no convergence 



where: 




if | x m 

' x n| < 

then 

N0 = 0 , return 

if 

| x n | = ° 

then 

Nf& = 1 , return 

41 ] x m 

- x n | 7 | X n| < *2 

then 

N0 = 0 , return 

otherwise 


N0 = 1 , return 


: 1 ~ «2 


= 5*10 


-5 


: 5 - 1^6 



5 - 5 ' 39 subrout ine CUBIC (X.V VP M v,^ 

The purpose of this subroutine is to perform cubic interpolation for 
a abulated function whose derivatives are known. 

Calling Sequence : 


Y 

YP 

N 


ARG 

YARG 

Restrictions; 


is a table of the independent variable, x., such that 

l+l sx i 1 

is a table of the dependent variable, = y ( x ) 

is a table of the derivatives of the dependen/variable 

y i y 

is ttie number of entries in each of the above tables; 

^ J* $ • ■ • IM 

is the argument, x, for which interpolation is requested 
is the result, y = y (x) 


V p ° Ung Pr09ram must deflne for the dummy variables X. Y, and 

' 38 a,TayS mUSt be at least of le "9ths N + 1, N, and N respectively The 

subroutine will save its last used table position number in X(N + 1) 


Method: 


If x < Xj the program returns y *= y ^ 
If x > x^ the program returns y = y ^ 


Given : x Q s x < Xj 

so that y 0 , y 0 ' y v and y ; . are known . The cublc lnterpoIation £onnula g . ven beiow 
is used to determine y 


where 


and 


y - A(x - x Q ) 3 + B(x - x Q ) 2 + C(x - x Q ) + D 

A * ! y f + y o) h ~ 2k ] 

B = + 2 Vol h - 3k] 

C = v 1 J 
y 0 

D = y n 


h = x l " x o 
k = Yl “ yn 
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THIS PAGE LEF 


T INTENTIONALLY BLANK 


5.6 BLM SUBROUTINES 


The Boundary Layer Module (BLM) is used to calculate the 
loss in nozzle performance due to a viscous boundary layer and 
its interaction with the nozzle wall. The effects of both drag 

and heat transfer are included. The method used is described in 
Section 2.6. 


The BLM consists of the following subroutines: 


BLMAIN 

BLEDGE 

BLH 

BL0CKD 

BLPLTS 

BLSEG 

BLTABL 

BLW 

C0EF 

C0EF1 

CUBICB 


DIFF 

EDDY 

INPUTB 

I VP L 

LINI 

0UTPBL 

RBL 

READBL 

S0LV5 

WRPROF 


The BLM is entered through subroutine BLMAIN. The boundary 
layer is divided into segments consisting of equally spaced grid 
lines. The control subroutine for analyzing a segment is 
subroutine BLSEG. There can be as many as 101 grid lines per 
segment, and as many as 10 segments. Many of the variables used 
in the BLM analysis are stored in arrays. The most important 
array variables are listed in Table 5-8. 


PfaUP-'ft ?V32 QLArtK HOT FILMS*' 


5-1*9 



TABLE 5-8: 


ARRAYS USED BY THE BLM 


Variable 

I .. l 4 - Vi iKmanolon) 

Common 

/Name/ 

Contents 

\W1U1 

A 

(101) 

/ GRD/ 

(n. -n J _ 1 >/2 , grid spacing 

ALFA 

(101 ) 

/ AL/ 

a angle of b.l. to nozzle 

e 

center line 

ALMDA 

(101) 

/EDGE/ 

X e , mean free path at edge 

B 

(101 , 2 ) 

/ BLC 1 / 

b, see equation 2.6-12 

BC 

(101) 

/ BLC 1 / 

(pp/p \i ), see equation 

e e 

2.6-12 

c 

(101 ,2) 

/ BLC 1 / 

(p /p), see equation 2.6-12 

CII 

(101) 

/ MI SCT / 

I, , integral, see equation 

2.6-21 

CK 

(101 ) 

/ BLC 2 / 

Y versus T, gas property table 

CKE 

(101) 

/EDGE/ 

Y versus T 
e e 

CNUE 

(101) 

/EDGE/ 

Ue/Pe) T hi 

CP 

(101) 

/ BLC 2 / 

c versus T, gas property Table 
P 

CPE 

(101) 

/EDGE/ 

C versus T 

p e 

CQ 

(101) 

/WALL/ 

(pv) w versus T w 

D 

(101 ,2) 

/ BLC 1 / 

d, see equation 2.6-12 

E 

(101 ,2) 

/ BLC 1 / 

e, see equation 2.6-12 

HHE 

(101) 

/EDGE/ 

H . total enthalpy at edge 
e 

HSE 

(101 ) 

/EDGE/ 

h*, static enthalpy at edge 

HSW 

(101 ) 

/WALL/ 

h static enthalpy at wall 

w 

PE 

(101 ) 

/EDGE/ 

P , pressure at edge 

PI 

(101) 

/PRES/ 

, see equation 2.6-13 

P2 

(101) 

/PRES/ 

m 2 , see equation 2.6-13 

P3 

(101 ) 

/PRES/ 

, see equation 2.6 — 1 it 

R1N0 

( 201 ) 

/ BC0N / 

r , radial coordinate of b.l., 
input 

RKK 

(101) 

/BLC2/ 

k versusT, gas property table 
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RH0E 

RMU 

RMUE 

RR 

RX 

RO 

S 

S0 

T 

TE 

TVCT 

TW 

U 

UE 

V 

ww 

X 

XIN0 

X0 


(101) 

/EDGE/ 

P e , density at edge 

(101) 

/ BLC 1 / 

U versus T, gas property table 

(101) 

/EDGE/ 

u g , viscosity at edge 

(101) 

/ BLC 2 / 

R g versus T, gas property table 

(101) 

/EDGE/ 

R £ , local Reynold No., U r/ v 

(101) 

/GRD/ 

( r o^k) » local radius of body 
revolution (L-1 ) 

(201 ) 

/GBLK/ 

x, surface distance, equally 
spaced 

(201 ) 

/GBLK/ 

x, surface distance, input 

(101) 

/BLC2/ 

T, temperature for gas property 
tables 

(101) 

/EDGE/ 

Tgt temperature at edge 

(101) 

/MISCT/ 

(1~t) where t *» y cos p/r , 

transverse curvature 

(101) 

/WALL/ 

T w * temperature at wall 

(101,2) 

/BLC 1 / 

f - U/Ue 

(101) 

/EDGE/ 

U, velocity at edge 

(101 ,2) 

/BLC 1 / 

It 

f , shear parameter 

(101) 

/WALL/ 

f 

8 W * dimensionless total 
enthalpy gradient at wall 

(101) 

/GRD/ 

£» see X0 

(201 ) 

/BC0N / 

X, axial coordinate, input 

(101) 

/GBLK/ 

£» transformed surface 
distance, see equation 2.6-6a 

(101) 

/MISCT/ 

n - y/y 
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5 . 6.1 


s u broutin e b lmain. 


The f unc t i on s 


This is the main program for the BLM. 

performed by this routine are described belovp. XNPUTB 

, , a*ta i. read by calling subroutine 1NPUTB. 

also "Spares tables and Ultial ImT. 

;rr t;;r\rrr • — « 

computed on a finite segments with as many as 

The boundary layer divided in^ f 

1 01 grl<1 lineS ” er Se8 ” e Flrst aubroutine BLEDGE is called 

the following events o. ur. f • oonaition3 at the 

to prepare tables of variables that desc 

mont 1 e up to 101 grid lines, 
to the end of each segment, i.e.. P numerical 

Subroutine BLMAIN prints out text 

output of the program. ri MAIN prints 

At the end of the print out for each segment, BLMAIN p 

. „<oh are evaluated at the last point 

the following quantities which are 

on the segment: 


Mean Free Path 


»/ 


X -1.26 v / (gRT ) 


(ft) 


Total Integrated Wall Heat Flux 


Q u ■ ‘ 


(BTU/sec) 


At the end of the print out for the last segment, the following 
additional quantities (evaluated at the last point) are pr 
Knudsen No. based on 6 


Kn g * - X/5 
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Nozzle Mass Flow 



( lbm/sec ) 


Boundary Layer Specific Impulse Loss 


A I 


sp , BL 


4F BL / *2D 


( sec ) 
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5 . 6.2 


SUBROUTINE BLEDGE_ ( I S EG ) 


This subroutine constructs the boundary conditions for 
segment number ISEG of the boundary layer. Tables containing 
the boundary layer coordinates XIN0, RIN0, S0 , AND X0 (see 
5-8 ) are input. The begining and ending axial coordinates for 

the segment, XSEG(ISEG) and XSEG ( ISEG+ 1 ) , and the number of 
subdivisions to be used, NISPS(ISEG), are also input (see 

Section 6.8-3). this information, tables that are 

equally spaced in boundary layer length are prepared. These 
tables are (see Table 5~8 ): 

X,S,RO,XI,TE,UE,PE,TW,CQ,CPE,CKE,HSE,HSW,ALFA. 

The above tables are then printed under the heading 
"BOUNDARY CONDITIONS ( IHFLAG - II ) " • 

5.6.3 SUBROUT INEBLH 

This subroutine is used to calculate the propellant enthalpy 
picked up by the regenative cooling circuits. The method used 
is described in Section 6.8.4, Regenerative Cooling Heat 

Transfer. It consists of integrating the wall heat flux over 
the surface area covered by the regen cooling circuits and 
dividing the results by the engine mass flow rate. The wall 
heat flux is calculated by subroutine OUTPBL. The integrated 
heat flux is read from the BLM linkage file (unit 12) using 
subroutine RBL. As many as three circuits are allowed. The 
subroutine prints out the results of the calculations under the 
label "PROPELLANT ENTHALPY FROM THE COOLING CIRCUITS". 
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5.6. H 


Block Data BL0CKD 


* 


This subprogram initializes the variables listed below: 


NXT 

NTR 

ETAE 


VGP 

RUMI 

T I 

0MEGA 

PR 


total number of x-stations, set for 101 

location of transition, set for 3 

transformed boundary-layer thickness for 
first station, set for 8. The 

boundary-layer thickness for other stations 
is computed internally. 

variable grid parameter set for i . i t) . 

reference viscosity set for 0.250 

x 1 0 ~ ^ lb /ft-sec* 
m 

reference temperature for viscosity, set for 
1 5 0 0 °R . 

exponent in the dens i ty- v i scos i ty 

relationship set for 0.76 

molecular Prandtl number, Pr, set for 
0.72 


ITYPE 


CQ 


IHFLAG 


through this flag the flow type is specified 
as f ol lows : 

a nozzle (ITYPE-1), and external 
axisymmetric body (ITYPE-2), or a 
two-dimensional external flow in which flow 
starts as a stagnation point flow (ITYPE-3). 
Set for 1 . 

mass transfer parameter, set for 0. It is 

equal to (pv) and has units of lb /ft 2 -sec 
w m 

this flag indicates whether the wall 
temperature is input (IHFLAG-0) or wall heat 
flux (IHFLAG-1). Set for 1. 


in the computer program C , Y, k, R are 

specified as functions of T(-TO) and form a 
"fluid-property table". NT AB refers to the 
number of TO values in this table. It is set 
here as 3, maximum being 101. 


The assumed values of RMUI , TI , 0MEGA , PR, CPO and CKO are 
for air. 
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TO 


values of temperature for the table 


CPO 

CKO 


IPRNT 


QF 


specific heat at constant pressure, Set 
ft 2 /sec°R. for 101 * 6006. 


ratio of specific heat at constant 
to specific heat at constant 
dimensionless. Set for 101 * 1 . *< . 


pressure 
volume , 


the flag that controls the print output. 
Set for 0. 

IPRNT*0 corresponds to short print and 


IPRNT-1 corresponds to long print 


Short print consists of the boundary- layer 

parameters such as 6 , 0, H, c f , R 6 «» R 0 * 

R s , c H , AF, and AI sp . 


Long print includes short print plus the 
velocity and temperature profiles. These 
are defined in Subroutine 0UTPBL. 


'his is the factor that converts input values 
)f heat flux (TQW(1) entries when IHFLAG-1 ) 
'r om the input units of BTU/in*sec. to the 
Internal program units of lbm/sec . 

3F- 3.605259*10®, 

L . e . ; 

5 (lbm/sec* ) - I 1 * 1 * Jg (BTU/in’-sec) . 


I 
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5 . 6.5 


SUBROUTINE BLPLTS 


This subroutine performs all the plotting for the BLM 
module. Data written by the BLM on data files is read and plots 
are made for requested items. Plot capabilities include 
displacement thickness, momentum thickness and wall temperature 
versus axial station. Also available are temperature and 
velocity profiles through the boundary layer at selected area 
ratios. Inputs for using the BLM plotting are described in 
Section 6.8.5. 
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5 . 6.6 


SUBROUTINE BLSSG 


The over-all logic of the boundary layer computations is 
controlled by this subroutine. A flow chart of the logic is 
presented in Figure 5~3. The nozzle is divided into segments, 
and subroutine BLSEG computes the growth of the boundary layer 
from the beginning to the end of the segment when called by 
subroutine BLMAIN. There are 100 grid lines in a segment, and 
these are counted using the FORTRAN variable NX. Each grid line 
is iterated until the solution converges. Iterations are 
counted using FORTRAN variable IT. 

Subroutine BLSEG checks the convergence of the iterations by 

It 

using the wall shear parameter f as a convergence criterion. 
For laminar flows, calculations are considered converged when 


it 

f 


< 1 0 




If f becomes negative during the iterations, 

are stopped. For turbulent flows a relative 
criterion is used, as follows: 


calculations 

convergence 


It 

f 

w 


.5 f 


< .02 
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ITERATION INDEX 



Figure 5-3: Plow Diagram for Subroutine BLSEG of BLM 











5 . 6^7 SUBR0UTINE__BLTABL__iiniRPj._!llABjL_nAIi_IlAii_^2Ml 

Y0UT) 

The purpose of this subroutine is to generate a table 
Y i vs. x i 

from a given table of 



yj vs. ^ 



Method : 




Given 


J-1 

,2. . .NJ 

and 

x i 

i-1 

,2 , . .NI 

This 

subroutine interpolates 

to find 


y ^ i« 1 , 2 , . . . NI 

One of these following interpolation methods can be 
selected: linear, linear log, or cubic. 


Calling Sequence: 

INTERP Interpolation method; input 

- 1 for linear, using subroutine LINI 

- 2 for linear log, using subroutine LINI 

- 3 for cubic, using subroutine CUBICB 

NTAB NJ, number of entries input for XT AB and YTAB 

XTAB Xj input 

YTAB Yj , input versus Xj 

N0UT NI, number of entries input for X0UT 

X0UT x t , input 

Y0UT y. f outupt versus x^ 
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5.6.8 


SUBR OUTINE BLW 


This subroutine uses results obtained from the BLM analysis 
for the boundary layer displacement thickness, «*, to obtain a 
displaced wall contour. The wall is either displaced Inwards 
when given the real wall), or outwards (when designing the 
real wall), a distance 6 * normal to the original contour. The 
nozzle throat radius is also corrected by -«» or + 6 *, 

respectively. The results of these calculations are printed. 

The values of 6 * vs X that are required for the above 
calculations are obtained from unit 12 using subroutine RBL. 


5.6.9 SUB ROUTINE C0EF 


This subroutine contains the coefficients of the 
momentum and energy equations written in a form 
Chapter 8 of Reference 13 . 


linearized 
described in 


Ref * 13. Bradshaw, p. Cebpoi t 
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5.6.10 S U B R 0 U T I N E_C 0 E F 1 


This subroutine calculates the fluid properties 
pressure-gradient parameters used in the momentum and energy 

equat i ons . 

For most applications boundary-layer calculations are 
carried out baaed on the assumption that the external flow la 
isentropio and that the total enthalpy H e la constant. This 
assumption Is not used here. « e is allowed to vary along the 
nozzle length. The following procedure Is used for this purpose: 

The static enthalpy, h*. is computed from 


T 

e 

h* - | C p (T)dT ♦ h* ( T q ) 

T 

o 

and stored together with C (CPO). T(CKO), k ( RKKO ) , R ( RRO ) all 
expressed as functions of T(T0) thus forming a “fluid property 
table.” This table Is used to Interpolate fluid properties 

across the layer. 

The boundary-layer equations require that at two adjacent 
x-statlons the total edge enthalpy H e must be constant. To 
provide for variation in H . local similarity ideas are used. 
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For two adjacent x-stations, 1 and 2, an average H e is defined 
as : 

Hg “ 1/2[H* (1 ) + H* (2)] (1 ) 


Then with an initial dimensionless total enthalpy ratio g known 
from the boundary-layer solutions, static enthalpy, h , is 

J 

computed from. 


' g J H e 


2 1 2 

w 


( 2 ) 


Once 
for C 
found 



from 


known 



then using the "fluid property table", values 
Rj and kj are found by interpolation, and Pj is 




J 



r 


The edge values of density p , p , v (~p /p ) and 

e e e e e 

are then computed. Edge values corresponding to j 
are computed from 



Next, the coefficients c, b, e, d and the pressure gradient 
parameters m^ jm^m^ appearing in the momentum and energy 

equations are computed. 


R ( u x/ v ) 
x e e 

- J and p 
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Finally, wall conditions are computed depending on whether 
the wall temperature or heat flux are specified. When the wall 
temperature is given the dimensionless total enthalpy ratio at 
the wall, which serves as a boundary condition, is computed as: 


g 


w 


w H 


In the case of specified heat flux q y , the dimensionless total 
enthalpy gradient, g w , is computed as 


w 


/R 


T k Pp P w 
( k_) _® — $ U) 


t r o 


p k H w 
K w we 


Here the units of each term are as follows 

lb 

m 

o = — T H 

p f t 7 e 


ft 


ft* 
sec * R 


ft 


At the convergence of the solutions for a given x-station, this 
subroutine is also used to account for the nonconstant nature of 
the total edge enthalpy. To explain this point, let us assume 
that we have done all that is described in COE F 1 , and that we 
can solve the equations at the specified x-station. Since the 
equations are nonlinear, solutions are iterated until a 
convergence criterion is met and then subroutine OUTPBL is 
called to print the desired quantites from that station. Before 
we increment the value of x and shift the profiles to perform 
calculations at the next x-station, we call COE F 1 to compute a 
new value of H from Equation (1) and recompute static enthalpy 
variation from Equation (2) and redefine all the fluid 
properties and pressure gradient parameters at that x-station 
for the calculations to be done at the next x-station. 



5.6. 1 1 


SUBR OUTINE CUBICB 


Subroutine CUBICB is used for Interpolation in a table with 

unequally spaced points. It uses a thl,„ , 
t ses a third-order polynomial 

to interpolate the data between four points. 


5 • £ . 12 S UB R 0 UTINE DIFF 


Subroutine DIFF is used to determine 
point in an input table. 


the derivative at each 


!-• 6 ♦ 1 3 S U B R 0 U T I N E_ E D D Y 


This subroutine contains the 
Cebeci-Smlth eddy-viscosity model, 
described in Section 2.6.2. 


formulas used in 
The eddy^viscosi ty model 


the 

is 
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5.6.14 _S U B ROUTINE— IN PUT B 

This subroutine reads input bat, -fining the probie. to^be 
solved by the Boundary Layer Module. Data oalou a 
H0 C module la read by calling subroutine READBL . 

innut data is read from unit 5 for the $BLM 
Next, user input data described in Section 

Namelist data set. These input-items 

6.8 of this report. 

, oal ouiatea the surface distance from 

This subroutine also calculates 

the input (r /c) and (x/c) values for NXIN-stat ions . 

the lnp o . i exoressed in 

printed surface distance is dimensional 

f eet . 

The input NXIN-stations are then redistributed In order to 
have , 0 , x-stations uniformly distributed, excep or t t 

ri ve stations which are Eenerated — then 

values of u e <x), Pe (x ’’ T e ’ “ to bc used In the 

interpolated for the new , 

s o Tn this subroutine, a total 

boundary-layer calculations. 

* 4 - a r nr* pach x-station by using the 

enthalpy. H (x). is computed for each 

e p .p an d u and the equation 

interpolated values of T , and 


H (x) - h 
e e 
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This subroutine prints out part of th£ 
consists of 


input geometry which 


X. 


3 , 


P 

e 


5^ 6 • 1 5 SUBROUTINE IVPL 


lnce the boundary-layer equations are nonlinear, before 
the, are solved at the stagnation point, they need initial 
*e oclty and temperature profiles. This subroutine provides the 
necessary data to start the calculations. 
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5.6.16 


Subroutine LINI (X, Y. N, ARG, YARG, NSAVEJ. 


The purpose of this subroutine is to linearly 
interpolate from tables of values and to save its place in 

the table. 

Calling Sequence: 

X is a table of the independent variables, x i 

Y is a table of the dependent variables, 

N is the number of entries in each table 

ARG is the argument for the X table 

YARG is the result of the interpolation 

NSAVE is a cell in which the table index is saved. 


Restrictions : 

If the argument exceeds the table of independent 
variables, the result is set equal to the appropriate table 
limit of the dependent variable. 
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SUBROUTINE 0 UTPBL 

Through the flag I p rnt discussed In Subroutine BLOC KD , this 
SU routine prints out the velocity and temperature profiles and 

aTthe^th' 13 '' 1 '" 131 '*'’ Parameters *'• »■ V V’ V C H as well 

thrust decrement aF due to the boundary layer. 

They are defined by the following formulas: 

Displacement thickness, S*(DELS), in ft. 


f 


(1 - JH_ )d y 


P u 
e e 


Momentum thickness 0 (THETA), in ft 


r £U , 

j *7; dy 


Shape Factor, h, dimensionless 


6 /e 


Local skin-friction coefficient, c f (CF), dimensi 


on 1 e s 3 


w 


1 / 2 p u 2 
e e 


Reynolds number based on displacement 


thickness, R * 
6 


V 


V 


V e “ >*e / P t 


Reynolds number based on surface distance, R 


U e 3 


s v 
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Stanton number, C H <CH>, dimensionless 


Thrust decrement AF, in lb^. 

AF - 2TTr o 9p e u e cos<t>-2nr o 6 cos<|) ( P e “P a ) 


Here X 
surface 
u and 


and r correspond to the nostle coordinates, a to tne 

0 or( in feet The units of velocity 

distance; all expressed in feet. 

. j *» h /ft 2 respectively, 

pressure p p are ft/sec and lb f /ft , 


In addition, this subroutine prints out 
values of input geometry referred to as "edge 
consists of X, r Q , 9» and p g . 


the interpolated 
conditions". It 


5.6.18 SUBROUT INE RBL 

This subroutine reads the 
locates X L and X £+1 such that 


IDX) 


BLM linkage file (unit 12) and 


X, * X s X. +1 

The value FX is then found by linear interpolation 
FX - FX ( • (X-Xj) (FX,*,- FXj)/(X 1m - X,) 
where FX is the variable number IDX stored on the file 
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5^19 SUBR OUT INE READBL 

The purpose of this subroutine is to transfer data from the 
ODE and MOC modules to the BLM module. 

If ODE has been run, values defining viscosity, Prandtl 

number, and edge total enthalpy are mapped for use by the BLM. 
The ODE linkage data is then read from unit LUBLM for use by 
BLM. The data file is checked for possible errors, and if 

detected, one of the following warning or error messages will 
be printed: 

"NO LINKAGE FOUND, EXPECT MANUAL INPUT" 


OR 


"DATA FROM xxxxx MODULE OUT OF ORDER IN MODULE BLM. CARD 
x x x x x HAS SEQUENCE NO. xxxxx" 


**»*****»#*#. 


a*******#*##### 


OR 


"INCORRECT CARD TYPE IN DATA FROM TDK FOUND BY READBL. EDG 
OR GPT EXPECTED xxxx FOUND AT SEQUENCE NO. xxxxx" 


•a*####**####***#####. 


***#»**«#«***##»#*# 


OR 


"INCORRECT CARD TYPE IN DATA FROM TDK FOUND BY READBL. 
EXPECTED, xxxx, FOUND AT SEQ. NO. xxxxx" 


****»*#**«*##* 


The last three errors above terminate program execution 
immediately after printing. 
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If no errors are encountered, the items read by subroutine 
READBL will include U.e nozzle mass flow rate, nozzle wall 
coordinates and associated edge temperature, pressure, 
velocity data, and also the gas property tables. 

If ODE was not run, the following message is printed: 

"BLM MODULE COULD NOT FIND DATA FROM TD2P MODULE — WILL 
ASSUME DATA TO BE READ IN $ BLM" 


«»«#»#«**** 


SUBROUTINE S0LV5 


This subroutine solves the matrix equation for which 
coeficients were computed by subroutine C0EF. One call to 
S0LV5 yields one pass through the elimination procedure. This 
procedure consists of a forward sweep, followed by a backward 
sweep of the system. The elimination scheme is specialized to 
treat this particular matrix equation. 


5- 6 . gj SUBROUTINE WRPR0F 


This subroutine interpolates between two wall stations and 
writes temperature and velocity profile data at selected area 
ratios onto a data file for post plotting. Area ratios are 

selected by input into the APROF array in the $BLM namelist, see 
Section 6.8.5. 
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6.0 


PROGRAM USER'S MANUAL 


Description of the C omputer Program Input . 


BW tl Pr ° gram 00nSlSt3 ° f ” Kdules ’ 0CE - «*. WANS, MCC, and 

non-equilibrium “ T 31-2 n3qUlred *° Perf °™ 3 C °" pleta 6(0 dimeneional 
-eq librium nozzle performance calculation with a boundary layer. Various 

opt ona exist in the program, tavever, which exercise «. ahovT mod les all n 
Part, or in combination. ne ’ in 


tionTrl T ^ Pr08rara Sequentlall y the order required for the execu- 
tion of the modules. This order Is as follows: 


Thermodynamic data, 

[fata common to the modules, 
ODE module inputs, 

OCK module inputs, 

"IRANS module inputs, 

MOC module inputs, and 
BLM module inputs. 


A more detailed description of these Input data sets Is presented in Idb 

indical^"! x 1 " *' hl0h ^ ^ data 36tS 13 ca "P late ly described 1 : 

indicated m Table 6-1. 


6 - 1 . 
also 


Of the oata sets listed in Table 6-1 , only the $DATA data set is required for 

^“e^'be?^ V ^ ** iS *■ options 

required if . . U * ° P exampie » in P ut of the thermodynamic data is not 
equired if an existing thermodynamic data file is to be used. 
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liable 6-1 . Input Data Set Description 


Card Input Section No . , 


Description 


THERMO 


thermodynamic data cards, see Tables 6-2 and 6-3 


END 

DOW T CPHS 

6.1.1, 

extension of thermodynamic data to temperatures 

* 


below 300°K, see Table 6-5 

END LOW T CPHS 

TITLE 

6.2, 

one or more title cards 

DATA 

6.3, 

data directive card 

6.3, 

data namelist for module selection, and geometry 

$UA1A 


SEND 

REACTANTS 

6.4, 

reactants directive card 


6.4.1, 

reactants cards , see Tables 2-6 and 2-7 

• 

6.4.1, 

blank card "required to end reactants cards 

OMIT 

6.4.2, 

cards to omit species 

INSERT 

6.4.2, 

cards to insert species 

NAMELISTS 

6.4*3, 

0DE directive card 

$ODE 

6.4.3, 

0DE namelist 

SPECIES 

• 

6.5*1, 

species cards for 0DK 

• 

REACTIONS 

• 

6*5*2, 

reaction cards for 0DK 

# 

LAST REAX 


inerts cards for 0DK. (to inert those species that 

INERTS 

6. 5*2. 6, 

are not named in res'tions) 
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Card Input 


Section No. 


Description 


THIRD BODY 


6.5.2. 7, reaction rate ratios for 


third bodies 


LAST CARD 
$ODK 
SEND 
STRANS 
SEND 
SMOC 
SEND 
SBLM 
SEND 


6,5,3 0DK module namelist 


TRANS module namelist 


M0C module namelist 
BLM module namelist 


lists the data sets in the order^T ^ ^ glVen Pr ° blem ' K 

ef, “ 3peoiai cards ^ -* «« r 

etc.) if the program is to function prooerir r k, . ’ oard > 

tory when used together with the det!,^^‘ 13 basioall >' eelf-explana- 

getner with the detailed input descriptions which follow. 

•JZZ 3,360131 ° Ptl0n3 to 0,3 °~ ™ separately in 

- £ 13 p ~ in — 7 ' — 
~ - review tL ^t Mrt ^ ^ 

b. ™ ^ ^ ™ ~ ** complete data should 
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5.1 ThennodV namj - c Date* 

, • file is available for use with the program, 

Ordinarily, a input described here can be used to gene- 

and is assigned to logicial unit 25- u* inp 
rate a thermodynamic data file if one is not available. 

This data set is identical to the WEBMO DATA described in Appendix D of NASA 
SP-273 (i.e. Reference 3). 

“ ; rrr::r P :^ da.. 

ribed in NASA TN D-4C97 (i.e. Reference 20 ) . 

„ thermodynamic data (i.e. <£ . etc.) are expressed as functions of tempera- 

ture using 5 least squares curve fit coefficient (a 1 . 5 ) and » Integra 
constants (ag_y) as follows: 


C° 

* a 1 + a 2 T ♦ a 3 r- ♦ a^ir ♦ ^ 


^T 2 + a.T 3 + ap-T 4 




a T a, 1 ! 2 aT 3 a-T 4 % 


S° a^T 2 a^T 3 ^T 4 

= a 1 J.nT + a 2 T + -§- + T" + 4 + 


a 7 


For each species, two sets of efficients U,_ 7 end a^ ) 
two adjacent temperature intervals, lower and upper^ * 
available in Reference 3 the lower temperature Interval is 300 to 
upper temperature interval is 1C00°K to 5000 K. 


Ref. 20. McBride, B.J., and 
The modynamic Data” , 


Gordon, S. , "Fortran IV Program for 
NASA TN-D-4097, Aug. 1967- 


Calculation 


of 
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teta cards for the species AR H H, .j” ’'T' 10 ** ^ d<ifinel in able 6-2- 
6-3 as examples. Ttermodynamic’ fet^’c wfficLte T ^ ^ “* “ &t>le 

supplied with the computer program. A list of thes ^ aPeCle3 *" 

6-4. (For temperature ra„ 9 e be,ow 300« K LTcZ e “ . * ~* i ln ^ 


Data Ihpe Generation and Usage: 


A computer run using thermodynamic data card tnn„+ 
logical unit JANAF. This taoe mav th* k ^ generate a data tape on 

program writes the THERMO data card iraa " and used at a later time. The 

exceptions. The THERMO code card anTtte ““h ^ ^ With 1x0 ^ nor 

omitted. ^ Card nurabe rs in card column 80 are 


If thermodynamic data cards are 
dynamic data is on logical unit JANAF. 
value of 25. 


not input, the program assumes 
Logical unit JANAF is currently 


the thermo - 
assigned a 


TABLE 6-2 


Card 

order 


FORMAT FOR THERMODYNAMIC DATA CARDS 
Contents 


THERMO 

Temperature ranges for 2 sets of co- 
I efficients: lowest T, common T, and 
[highest T 
Species name 
Date 

Atomic symbols and formula 

Phase of species (S,L, or G for solid, 
liquid, or gas, respectively 

Temperature range 

1 Integer 1 

Coefficients a J ft * 1 to 5) In equations 
(6-1) to (6-3) 1 

(for upper temperature Interval) 

[ Integer 2 

Coefficients in equations (6-lJto 6-3) 

1 (a ' a ' for upper temperature Interval 
an!' a/, a 2 , and a 3 for lower) 

Integer 3 

oefficients in equations (6-1) to (6-3, 

(a ,a c ,a c ,a, for lower temperature in- 

telWl 5 ) 6 7 

Integer 4 

(a) Repeat cards numbered 1 to 4 in cc 80 
for each species 

(Final END (Indicates end of thermodynamic 
card) data) 

•■Gaseous species and condensed species with only one condensed phase can be 
any order. However, the sets for two or more condensed phases of the same 
species must be adjacent. If there are more than two condensed phases of a 
species their sets must be either in increasing or decreasing order according 

to their temperature intervals. 


Format 

Card 

column 

3A4 

1 to 6 

[ 3F10.3 

1 to 30 

3A4 

1 to 12 

2 A3 

19 to 24 

1 4(A2 , F3 . 0) 

25 to 44 

A1 

45 

I 2F10.3 

46 to 65 

115 

80 

5(E15.8) 

1 to 75 

15 

80 

5 (El 5.6) 

1 to 75 

15 

80 

1 4 (El 5. 8) 

1 to 60 

120 

80 

3A4 

1 to 3 
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TABLE 6-3. THERMO DATA CARDS FOR AN 0 2 /H 2 PROPELLANT 
(SPECIES AR, H, H 2 , H 2 0, N 2 , 0, OH, AND 0 2 ) 


THERMO 

300.000 1000.000 5000.000 


AR 

. 25000000E 01 
-. 74537502E 03 
0. 

H 

. 24999996E+01 
. 25474390E+05 
64292197E-14 
H2 

. 31001901E+01 
87738042E+03 
. 55210391E-08 
H20 

. 27167633E+01 
29905826E+05 
29637404E-08 
N2 

. 28963 194E+01 
-. 90586184E+03 
63217559E-09 
O 

. 25352638E+01 
. 29230265E+05 
17837980E-08 
OH 

. 29131230E+01 
. 39647060E+04 
. 20843575E-09 

02 

• 36219535E+01 
-. 12019825E+04 
67635137E-08 

END 


L 5/66AR 1.0 

0. 

. 43660006E 01 
0. 

J 6/74H 1. 

. 70881143E-09 
- . 45989 618E+00 
. 26794037E-17 
J 3/61H 2.0 

. 51119464E-03 
-. 19629421E+01 
-.18122739E-11 
J 3/61H 2.0 

. 29451374E-02 
. 66305671E+01 
. 80702103E-12 
J 9/65N 2.0 

. 15154866E-02 
. 61615148E+01 
-.22577253E-12 
J 6/740 1. 

-. 1437 1898E-04 
. 49575621E+01 
. 45709012E-12 
J12/700 l.H 
. 95418248E-03 
. 54288735E+01 
-. 23384265E-12 
J 9/650 2.0 

. 73618264E-03 
. 36150960E+01 
. 21555993E-11 


0 0.00 0.00 O.G 
0. 

. 25000000E 01 
- . 74537498E 03 
0. 0. O.G 

-. 38728927E-12 
. 25000002E+01 
. 25474390E+05 
0.0 0.0 O.G 

. 52644210E-07 
. 30574451E+01 
-. 98890474E+03 

1.00 0. 00 O.G 
-. 80224374E-06 

.40701275E+01 
-. 30279722E+05 
0.0" 0.0 O.G 

-. 57235277E-06 
. 3674826 LE+01 
-. 10611588E+04 
0. 0. O.G 

-. 11360139E-07 
. 29558662E+01 
. 29143654E+05 

1.0 0.0 O.G 

-. 19084325E-06 

. 38365518E+01 
. 36715807E+04 
0.0 0.0 O.G 

-. 19652228E-06 
. 36255985E+01 
-. 10475226E+04 


300.000 5000.000 

0 . 0 . 

0. 0. 

. 43660006E 01 
300.000 5000.000 

. 85096613E-16 - . 657 68080E-2 0 
-. 19925608E-08 . 54929899E-11 

- . 45989941E+00 

300.000 5000.000 

-. 34909973E-10 . 36945345E-14 

.267 652 00E-02 - . 58099162E-05 
-. 22 99705 6E+01 

300.000 5000.000 

. 10226682E-09 - . 48 47 2 14 5E-14 
-. 11084499E-02 . 41521180E-05 

-. 32270046E+00 

300.000 5000.000 

. 99807393E-10 - . 6522 3 555E-14 
-. 12081500E-02 . 23240102E-05 

. 23580424E+01 
300.000 5000.000 

. 66005131E-11 61181626E-15 

-. 17061536E-02 . 25925154E-05 

. 29243614E+01 
300.000 5000.000 

. 12730795E-10 . 2 4 8 03 94 IE- 1 5 

-. 10702014E-02 . 94849757E-06 

. 49805456E+00 
300.000 5000.000 

. 36201558E-10 - . 2 8 94 5 627E-14 
-. 18782184E-02 . 70554544E-05 

. 43052778E+01 


Table 6-4 . 


E 

AL 

AL+ 

AL- 

ALB02 

ALBR 

ALBR3 

ALC 

ALCL 

ALCL+ 

ALCLF 

ALCLF+ 

ALCLF2 

ALCL2 

ALCL2+ 

ALCL2- 

ALCL2F 

ALCL3 

ALF 

ALF+ 

ALF 2 

ALF2+ 

ALF 2- 

ALF20 

ALF20- 

ALF3 

ALF4- 

ALH 

ALI 

ALT 3 

ALN 

ALO 

ALO+ 

ALO- 

ALOCL 

ALOF 

ALOH 

ALOH+ 

ALOH- 

AL02 

AL02- 

AL02H 

ALS 

AL2 

AL2BR6 

AL2CL6 

AL2F6 

AL2I6 

AL20 

AL20+ 


SPECIES WITH THERMODYNAMIC DATA PROVIDED 


AL202 

AL202+ 

AR 

AR+ 

B 

B+ 

B- 

BCL 

BCL+ 

BCLF 

BCL2 

BCL2+ 

BCL2- 

BCL3 

BF 

BF2 

BF2+ 

BF2- 

BF3 

BH 

BHF2 

BH2 

BH3 

BN 

BO 

BOCL 

BOF 

BOF2 

BO 2 

B02- 

BS 

B2 

B20 

B202 

B203 

B303CL3 

B303F3 

B303H3 

BA 

BABR 

BABR2 

BACL 

BACL2 

BAF 

BAF+ 

BAF2 

BAOH 

BAOH+ 

BA02H2 

BAS 


BE 

BE+ 

BE BO 2 

BEBR 

BEBR2 

BECL 

BEGL+ 

BECLF 

BECL2 

BEF 

BEF2 

BEH 

BEH+ 

BEI 

BEI2 

BEN 

BEO 

BEOH 

BEOH+ 

BE02H2 

BES 

BE20 

BE20F2 

BE202 

BE303_ 

BE404_ 

BI 

BIS 

BR 

BR2 

C 

C+ 

c- 

CCL 

CCL2 

CCL2F2 

CCL3 

CCL3F 

CCL4 

CF 

CF+ 

CF2 

CF2+ 

CF3 

CF3+ 

CF4 

CH 

CH+ 

CH2 

CH20 


CH202 

CH3 

CH3CL 

CH20H 

CH30 

CH4 

CH30H 

CN 

CN+ 

CN- 

CN2 

CNN 

CO 

COCL 

COCLF 

COCL2 

COF 

COF2 

COS 

C02 

C02- 

CP 

CS 

CS2 

C2 

C2- 

C2CL2 

C2F2 

C2F4 

C2H 

C2HF 

C2H2 

C2H4 

C2H402 

C2H404 

C2H5 

C2H6 

CH3N2CH3 

C2H50H 

CH30CH3 

C2N 

C2N2 

C20 

C3 

C3H60 

N-C3H7 

I-C3H7 

C3H8 

1-C3H70H 

C302 


C4 

C4H804 

N-C4H10 

I-C4H10 

C4N2 

C5 

C6H5 

C6H6 

CA 

CA+ 

CABR 

CABR2 

CACL 

CACL2 

CAF 

CAF2 

CAI 

CAI2 

CAO 

CAOH 

CAOH+ 

CA02H2 

CAS 

CA2 

CL 

CL+ 

CL- 
CLCN 
CLF 
CLF3 
CLO 
CL02 
CL2 
CL20 
CR 
CRN 
CRO 
CR02 
CRO 3 
CS 
CS+ 
CSCL 
CSF 

CSO 

CSOH 

CSOH+ 

CS2 

CS2CL2 

CS2F2 

CS20 
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CS202H2 

HBS+ 

CS2S04 

HBR 

CU 

HCN 

CU+ 

HCO 

CUCL 

HCO+ 

CUF 

HOP 

CUF2 

HCL 

CUO 

HD 

CU2 

HD+ 

CU3CL3 

HD- 

D 

HDO 

D+ 

HF 

D- 

HI 

DCL 

HNCO 

DF 

HNO 

DOCL 

HN02 

D2 

HNO 3 

D2 + 

HOCL 

D2- 

HOF 

D20 

HO 2 

D2S 

HS03F 

F 

H2 

F- 

H2 + 

FCN 

H2- 

FO 

H2F2 

F02 

H2N2 

F2 

H20 

F20 

H202 

FS2F 

H2S 

FE 

H2S04 

FE+ 

H3B306 

FE- 

H3F3 

FEC505 

H4F4 

FECL 

H5F5 

FECL2 

H6F6 

FECL3 

H7F7 

FEO 

HE 

FE02H2 

HE+ 

FES 

HG 

FE2CL4 

HGBR2 

FE2CL6 

I 

H 

12 

H+ 

K 

H- 

K+ 

HALO 

KB02 

HBO 

KCN 

HBO+ 

KCL 

HBO- 

KF 

HB02 

KF2- 

HBS 

KH 


KO 

MGN 

KO- 

MGO 

KOH 

MGOH 

KOH+ 

MGOH+ 

K2 

MG02H2 

K2C2N2 

MGS 

K2CL2 

MG 2 

K2F2 

MG2F4 

K202H2 

N 

K2S04 

N+ 

KR 

N- 

LI 

NCO 

LI+ 

ND 

LIALF4 

ND2 

LI BO 2 

ND3 

LI CL 

NF 

LIF 

NF2 

LIFO 

NF3 

LIF2- 

NH 

LIH 

NH2 

LIN 

NH3 

LIO 

NO 

LIO- 

N0+ 

LIOH 

NOCL 

LIOH+ 

NOF 

LION 

N0F3 

LI 2 ' 

NO 2 

LI2CL2 

N02- 

LI2F2 

N02CL 

LI 20 

N02F 

LI202 

NO 3 

LI202H2 

N2 

LI2S04 

N2 + 

LI3CL3 

N2- 

LI3F3 

N2D2 

MG 

N2H4 

MG+ 

N20 

MGBR 

N20+ 

MGBR2 

N204 

MGCL 

N205 

MGCL+ 

N3 

MGCLF 

NA 

MGCL2 

NA+ 

MGF 

NAALF4 

MGF+ 

NAB02 

MGF2 

NABR 

MGF2 + 

NACN 

MGH 

NACL 

MG I 

NAF 

MGI2 

NAF2- 


NAH 

NAI 

NAO 

NAO- 

NAOH 

NAOH+ 

NA2 

NA2C2N2 

NA2CL2 

NA2F2 

NA20 

NA202H2 

NA2S04 

NB 

NBO 

NB02 

NE 

NE+ 

NI 

NICL 

NICL2 

NIO 

NIS 

O 

0 + 

0 - 

OD 

OH 

0H+ 

OH- 
02 
02 + 

02 - 

03 

P 

P+ 

PCL3 

PF 

PF+ 

PF- 
PF2 
PF2 + 

PF2- 

PF3 

PF5 

PH 

PH 3 

PN 

PO 

P02 



Table 6-4. (cont.) 


PS 

P2 

P4 

P406 

P4010 

PB 

PBBR 

PBBR2 

PBBR4 

PBCL 

PBCL+ 

PBCL2 

PBCL2+ 

PBCL4 

PBF 

PBF2 

PBF 4 

PBI 

PBI2 

PBI4 

PBO 

PBS 

PB2 

S 

S+ 

s- 

SCL 

SCL2 

SCL2+ 

SD 

SF 

SF+ 

SF- 

SF2 

SF2+ 

SF2- 

SF3 

SF3+ 

SF3- 

SF4 

SF4+ 

SF4- 

SF5 

SF5+ 

SF5- 

SF6 

SF6- 

SH 

SN 

SO 


SOF2 

502 

S02CLF 

S02CL2 

S02F2 

503 
S2 

S2CL 

S2CL2 

S2F2 

S20 

S8 

SI 

SI+ 

SIBR 

SIBR2 

SIBR3 

SIBR4 

SIC 

SIC2 

SIC4H12 

SICL 

SICL2 

SICL3 

SICL4 

SIF 

SIF2 

SIF3 

SIF4 

SIH 

SIH+ 

SIHBR3 

SIHCL3 

SIHF3 

SIHI3 

SIH2BR2 

SIH2CL2 

SIH2F2 

SIH2I2 

SIH3BR 

SIH3CL 

SIH3F 

SIH3I 

SIH4 

SII 

SII2 

SIN 

SIO 

SI02 

SIS 


512 
SI2C 
SI2N 

513 
SR 

SRBR 

SRCL 

SRCL2 

SRF 

SRF+ 

SRF2 

SRI2 

SRO 

SROH 

SROH+ 

SR02H2 

SRS 

TA 

TAO 

TA02 

TI 

TI+ 

TI- 

TICL 

TICL2 

TICL3j^ 

TICL4' 

TIO 

TIOCL 

TIOCL2 

TI02 

V 

VCL4 

VN 

VO 

VO 2 

XE 

XE+ 

ZN 

ZN+ 

ZN- 

ZR 

ZRN 

ZRO 

ZR02 

AL(S) 

AL(L) 

ALBR3 (S) 

ALBR3 (L) 

ALCL3 (S) 


ALCL3 (L) 

ALF3 (A) 

ALF3 (B) 

ALF3 (L) 

ALI3 (S) 

ALI3 (L) 
ALN(S) 

AL203 (A) 
AL203 (L) 
AL2SI05 (AN) 
AL6SI2013 (S) 
B (S) 

B (L) 

BN (S) 

B203 (L) 
B303H3 (C) 

BA (A) 

BA(B) 

BA (C) 

BA(L) 

BABR2 (S) 
BABR2 (L) 
BACL2 (A) 
BACL2 (B) 
BACL2 (L) 
BAF2 (AB) 
BAF2 (C) 

BAF2 (L) 
BAO(S) 
BAO(L) 
BA02H2 (S) 
BA02H2 (L) 
BAS (S) 

BE (S) 

BE (L) 

BEAL204 (S) 
BEAL204 (L) 
BEBR2 ( S ) 
BECL2 (S) 
BECL2 (L) 
BEF2 (LQZ) 
BEF2 (HQZ) 
BEF2 (L) 
BEI2 (S) 
BEI2 (L) 
BEO(A) 
BEO(L) 
BE02H2 (B) 
BES (S) 
BI(S) 


BI(L) 

BI2S3 ( S ) 

BR2 (L) 

C (GR) 

CA (A) 

CA ( B) 

CA (L) 

CABR2 ( S ) 
CABR2 (L) 
CAC03 (CAL) 
CACL2 (S) 
CACL2 (L) 
CAF2 (A) 

CAF2 (B) 

CAF2 (L) 
CAO(S) 

CAO ( L) 
CA02H2 (S) 
CAS ( S ) 

CAS04 ( S ) 
CR(S) 

CR(L) 

CRN (S) 

CR2N ( S ) 
CR203 (S) 
CR203 (L) 
CS(S) 

CS ( L) 

CSCL(A) 

CSCL(B) 

CSCL(L) 

CSF(S) 

CSF(L) 

CSOH(A) 

CSOH(C) 

CSOH(L) 

CS2S04 (II) 

CS2S04 (I) 

CS2S04 ( L) 

CU(S) 

CU ( L) 
CUF(S) 
CUF2 (S) 
CUF2 (L) 
CUO(S) 
CU02H2 ( S ) 
CUS04 ( S ) 
CU20 ( S ) 
CU20 ( L) 
CU205S ( S ) 



Table 6-4. (cont . ) 


FE (A) 

FE (C) 

FE (D) 

FE (L) 
FEC505 (L) 
FECL2 (S) 
FECL2 (L) 
FECL3 (S) 
FECL3 (L) 
FEO(S) 
FEO(L) 
FE02H2 (S) 
FE03H3 (S) 
FES (A) 

FES (B) 

FES (C) 

FES (L) 
FES04 (S) 
FES 2 (S) 
FE203 (S) 
FE2S3012 (S 
FE304 (S) 
H20 (S) 

H20 (L) 
H2S04 (L) 
HG(L) 

HGBR2 (S) 
HGBR2 (L) 
HGO(S) 

12 (S) 

12 (L) 

K(S) 

K(L) 

KCN(S) 

KCN(L) 

KCL(S) 

KCL(L) 

KF(S) 

KF (L) 

KHF2 (A) 

KHF2 (B) 

KHF2 (L) 
KOH(A) 
KOH(B) 
KOH(L) 

K02 (S) 

K2C03 (S) 
K2C03 (L) 

K20 (S) 

K202 (S) 


K2S ( 1) 
K2S (2) 
K2S ( 3 ) 
K2S (L) 
K2S04 (A) 
K2S04 (B) 
K2S04 (L) 
LI (S) 

LI ( L) 
LIAL02 (S) 
LIAL02 (L) 
LICL(S) 
LICL(L) 
LIF(S) 
LIF(L) 
LIH(S) 
LIH(L) 
LIOH(S) 
LIOH(L) 
LI20 ( S ) 
LI20 (L) 
LI2S04 (A) 
LI2S04 (B) 
LI2S04 (L) 
LI3N (S ) 

MG (S ) 

MG (L) 

MGAL204 (S) 
MGAL204 (L) 
MGBR2 (S) 
MGBR2 (L) 
MGC03 (S) 
MGCL2 (S) 
MGCL2 (L) 
MGF2 (S) 
MGF2 (L) 
MGI2 ( S ) 
MGI2 (L) 
MGO(S) 
MGO(L) 
MG02H2 (S) 
MGS (S) 

MGS 04 (S) 
MGS04 (L) 
MGS 103 (CL) 
MGSI03 (RE) 
MGS 103 (PR) 
MGSI03 (L) 
MGTI03 (S) 
MGTI03 (L) 


MGTI205 (S) 
MGTI205 (L) 
MG2SI04 (S) 
MG2SI04 (L) 
MG2TI04 (S) 
MG2TI04 (L) 
VN (S) 

NA (S ) 

NA (L) 

NAAL02 (A) 

NAAL02 (B) 

NABR(S) 

NABR(L) 

NACN(S) 

NACN(L) 

NACL(S) 

NACL(L) 

NAF(S) 

NAF(L) 

NAI(S) 

NAI(L) 

NAOH(A) 

NAOH(L) 

NA02 (S) 
NA2C03 (1) 
NA2CD3~( 2 ) 
NA2C03 (L) 
NA20 (C) 

NA20 (A) 

NA20 ( L) 
NA202 (A) 
NA202 (B) 
NA2S (1) 

NA2S (2) 

NA2S ( L) 
NA2S04 (IV) 
NA2S04 (I) 
NA2S04 (L) 
NA3ALF6 (A) 
NA3ALF6 (B) 
NA3ALF6 (L) 
NA5AL3F14 ( S ) 
NA5AL3F14 (L) 
NB(S) 

NB (L) 

NBO(S) 

NBO(L) 

NB02 (S) 

NB02 (L) 

NB205 (S) 


NB205 ( L) 
NI (A) 
NI(B) 

NI (L) 
NIS(B) 
NIS(A) 
NIS(L) 
NIS2 (S) 
NIS2 (L) 
NI3S2 (1) 
NI3S2 (2) 
NI3S2 (L) 
NI3S4 (S) 
P(V) 

P4010 (S) 
PB (S) 

PB (L) 
PBBR2 (S) 
PBBR2 (L) 
PBCL2 (S) 
PBCL2 (L) 
PBF2 (A) 
PBF2 (B) 
PBF2 (L) 
PBI2 (S) 
PBI2 (L) 
PBO(RD) 
PBO(YW) 
PBO(L) 
PB02 (S) 
PBS (S) 

PBS (L) 
PB304 (S) 
S(S) 

S (L) 

SCL2 (L) 
S2CL2 (L) 
SI(S) 

SI (L) 

SIC ( B) 

SI02 (LQZ) 
SI02 (HQZ) 
SI02 (HCR) 
SI02 (L) 
SI2N20 ( S ) 
SI3N4 (A) 
SR(S) 

SR ( L) 

SRCL2 (1) 
SRCL2 (2) 


SRCL2 (L) 
SRF2 (S) 
SRF2 (L) 
SRO (S) 
SRO(L) 
SR02H2 (S) 
SR02H2 (L) 
SRS(S) 

TA ( S ) 

TA (L) 
TAC(S) 
TAC(L) 
TA205 (S) 
TA205 ( L) 
TI (A) 
TI(B) 

TI(L) 

TIC (S) 

TIC (L) 
TICL2 (S) 
TICL3 (S) 
TICL4 (L) 
TIN ( S ) 

TIN (L) 
TIO(A) 
TIO(B) 
TIO(L) 

TI02 (RU) 
TI02 (L) 
TI203 (1) 
TI203 (2) 
TI203 (L) 
TI305 (A) 

TI 305 (B) 
TI305 ( L) 

TI 407 (S) 
TI407 (L) 
V(S) 

V (L) 

VCL2 (S) 
VCL3 (S) 
VCL4 (L) 
VO(S) 

VO ( L) 

V203 (S) 

V203 (L) 

V204 (1) 

V204 (2) 

V204 (L) 

V205 (S) 


6-11 


Table 6-4 . 


(coat. ) 


V205 (L) 

ZN (S) 
ZN(L) 
ZNS04 (A) 
ZNS04 (AP) 
ZNS04 (B) 
ZR(A) 
ZR(B) 
ZR(L) 
ZRN(S) 
ZRN(L) 
ZR02 (A) 
ZR02 (B) 
ZR02 (L) 


6.1.1 THERMODYNAMIC DATA BELOW 300°K. 


If the temperature at any point computed by ODE, ODK, or 
TDK is found to be below the Thermodynamic Data lower 
temperature limit, T ^ , the polynomial curve fit data (see 
Section 6.1) will be extrapolated to obtain values for the 
thermodynamic data. The extrapolated data can be inaccurate. 

The LOW T CPHS data set can be used to input low temperature 
data for those species for which extrapolation of the .JANNAF 

data is not accurate. Only Cp vs. T is input. Enthalpy and 

entropy are obtained by integrating Cp vs. T within the computer 
progr am . 

The lower temperature limit, T ^ , in the Thermodynamic Data 
supplied with the program is 300°K. Thermodynamic Data below 
the temperature, T ^ , may be input by data cards as described under 
"Input Specifications for Low Temperature Thermodynamic Data". 

An example of this input is given in Table 6-5 which shows a 
card listing extending the ,^_T hermodynamic Data for the 18 
chemical species given in Appendix A. Data in Table 6-5 is 

taken directly from the JANAF tables. The source references for 

these data are as follows: 


Ref. 21: CO, CO , CL , F, HCL, H 0, and NO. 

2 2 2 

Ref . 22 : CL . 

Ref. 23: CLF, F , F, HF, H , N, N , 0, OH, and 0 . 

2 2 2 2 

Ref. 21: Stull, D.R., Prophet, H., et al., JANAF 

Thermochemical Tables, Second Edition, NSRDS-NBS 
37, National Standard Reference Data Series, 
National Bureau of Standards, June 1971. 

Ref. 22: JANAF Thermochemical Tables, 1974 Supplement, J. 
Phys. Chem. Ref. Data 3,311 (1974). 

Ref. 23: JANAF Thermochemical Tables, 1982 Supplement, J. 
Phys. Chem. Ref. Data 11,695 ' 1 982). 
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Xhe_^n£u^_Spec^£^ca t^ons_f o r_Low_T em£e£atu£e_Thermod^nam i : c_Da t 

The first card is a directive card that identifies the start 
of the low temperature thermodynamic data input. It reads as 
follows, columns 1 through 10: 


LOW T CPHS 

The next card contains a species name consisting of 12 
characters, or less, left justified to column 1. An integer is 
placed in column 21 indicating the number of T, Cp values that 
follow. A value of 1,2, or 3 can be used. For example: 


H20 


Next, the thermodynamic data 
input. There must be one pair of 
cards are numbered consequently 
2F1 0 . 0 , 20X , 15 . For example, for 


1 00 . 
200 . 


7.964 
7.969 - 


for the species named above is 
T, Cp values per card. These 
Ln column 45. They are read as 
i^0 : 


1 

2 


Species name cards and thermodynamic data cards for other 
species, if any, follow. 


A final directive card is used to identify the end of the 
low temperature thermodynamic data. It reads as follows, 
columns 1 through 1 4 : 


END LOW T CPHS 
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Table 6 - 5 . Low Temperature The rmody narn i e Data Input 


_1. 

'] 

LOW T 

CPHS 

CO 


100. 

6 

200. 

6 

C02 


100. 

6 

200. 

7 

CL 


100. 

4 

200. 

5 

CLF 


100. 

6 

200. 

7 

CL2 


100. 

7 

200. 

7 

F 


100. 

5 

200. 

5 

F2 


100. 

6, 

200. 

7 , 

H 


100. 

4 , 

200. 

4 , 

HCL 


100. 

6 . 

200. 

6 . 

HF 


100. 

6, 

200. 

6 . 

H2 


100. 

6. 

200. 

6 . 

H20 


100. 

7. 

200. 

7 . 

N 


100. 

4 . 

200. 

4 . 

NO 


100. 

7 . 

200. 

7 . 

N2 


100. 

6 . 

200. 

6. 

0 


100. 

5, 

200. 

5. 

OH 


100. 

7 • ' 

200. 

7 . : 

02 


100. 

6 . ! 

200. 

6 • < 

END LOW 

T CPI 


11 


038 


959 

961 

962 
962 

729 

560 


968 

968 

721 

721 


957 

665 


21 


2 

2 

2 

2 

2 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


2 

2 


1 

2 

1 

2 

1 

2 

1 

2 


1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 

1 

2 


»H<N HCM 



6.2 • Title Cards 


This input permits labeling of runs with alphanumeric 
information. As many title cards as desired may be input in 
sequence . Card format is as follows: 

col 1 “5 col 6-77 

TITLE any alphanumeric information 

The last card that is input will be used as a printed title 
for the output summary table, and a title for the linkage file 
to BLIMP (see Section 6. 4. 3-2, IPTAB). 

It is not necessary to input title cards. 


851 006 
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6-3 DATA Directive and $DATA Namelist Input . 

The DATA directive and the SDATA Namelist input set described below must always 
be input. It is required for all problems since it contains the input that cont- 
rols which calculation modules are to be executed. 

The first input item must be a single card, called the DATA directive card. 
The format of this card is as follows: the letters DATA must be punched in columns 

1 through 4 . Hie DATA card is used to inform the program that the -SDATA namelist 
input is to follow. 

The card following the DATA card must contain the name $DATA, and all cards in 
the namelist input set must start in column 2 or greater. Since Namelist input is 

card interpretive, items can be input in any order. The last card in the set must 
contain SEND. 




Users unfamiliar with Namelist input are referred to their FORTRAN reference 


manual. 




Item 

Description 

Units 

Assumed 

Value(s) 

DATA 

DATA directive card 



SDATA 

Namelist name, read in Subroutine 
PR0BLM 


- 


r 
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6.3.1 Specification of Modules to be Executed. 


If a module is to be executed, "it is necessary to indicate the fact by input of 
a module flag as described below. For example, if a problem requires that the 0DE 
module be run, it is necessary to input 0DE » 1. Chly certain combinations of 
modules are allowed. These are described in Table 6-6. The module flags are: 


Assumed 


Item 


Description 

Units 

Value 

0DE 

a 

Set 0DE = 1 if the ODE module is to be 
executed. 

none 

0 . 

0DK 

3 

Set 0DK = 1 if the ODK module is to be 
executed. 

none 

0 . 

IDE 

= 

Set IDE = 1 if the TEE option of the 
M0C module is to be executed 

none 

0 . 

TDK 

3 

Set IDK a 1 if the TDK option of the 
M0C module is to be executed 

none 

0 . 

TDF 

3 

Set TDF = 1 if the TDF option of the 
M0C is to be executed 

none 

0 . 

TTDK 


Set TTDK=1 to run the -TDK option 
with tables supplied by ODK re- 
placing the TDK kinetic calcula- 
tions. See Section 2-5.3. 

none 

0 . 

BLM 

3 

Set BLM a 1 if the BLM option of the 
M0C module is to be executed 

none 

0 . 

PFG0PT 

*■* 

Set PPG0PT = 1 if the constant proper- 
ties option of the MOC module is to be 
executed. See Section 6.9.1 for input 
instructions . 

none 

0 . 
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Table 6-6: Usage of the Module Flags 


ORIGINAL PAGE IS 
OF POOR QUALfTY 


Input 

0DE-1, 

0DE-1, 0DK-1, 


0DK-1, 


0DE=1 , 0DK-1 , TDK-1, 


0DE-1, 0DK-1 , TDK-1, BLM-1 , 

0DE-1, 0DK-1 , TDK-1, BLM-1, 
IRPEAT-1 , 


0DE-1, 0DK-1 , TDK-1, BUI-1, 
IRPEAT-2, 

^>1, X >1, TTDK-1, BLM-1 
n* 2 


TDE-1, 


IDE-1 , BLM-1, 

TDE-1, BLM-1, IRPEAT-1 or 2, 


Mode of Execution 

0DE is run alone. Options other than the 
rocket (RKT-T) option are allowed. See 

Section 6.4.3 and Reference 3 . 

0DE is run. 0DK is run with 0DE providing 
start conditions. See Section 6.5.1. 

0DK is run alone with initial conditions 
supplied by the user. See Sections 6.5.1 and 
6.5.1 .1 , and 6.5. 3.6. 

0DE is run. 0DK is run with 0DE providing 
start conditions. TDK is run with 0DK and 
TRANS providing M0C initial data line 

conditions. The number of 0DE and 0DK runs 
will be equal to NZ0NES. 

As above with a BLM run added. 

As above with 0DE, 0DK, and TDK repeated 
using the BLM results. See Section 6.8.4. 
This option is for including the BLM results 
with regen cooling. 

As above except that the 0DE and 0DK runs are 
not repeated because there is no heat input 
correction due to regen cooling. 

As above except that TDK will U i:r- table -, 
compute, i by nriK and pm ,. n , . v , nta 
rea c t inj v , c hem i i y . 

0DE will be run for NZ0NES. TDE is run with 
0IE chemical equilibrium gas properties, and 
with TRANS providing M0C initial data line 
conditions. 

As above with BLM. 

As above with TDE repeated. 



Table 6-6: Usage of the Module Flags (continued) 


Input 


0DE=1 , 0DK=1 , TDF=1 , 


0DE=1 , 0DK=1 , TDF=1 , BLM=1 , 

0DE=1 , 0DK=1 , TDF=1 , BLM=1 , 
IRPEAT=1 or 2, 

BLM=1 , 


PFG0PT=1 , 


Mode of Execution 

0DE is run. 0DK is run with 0DE providing 
start conditions. However, the 0DK run will 
have a frozen chemical composition. TDK will 
also be run with a frozen composition. 

As above with BLM. 

As above with TDF repeated. 


BLM is run alone. This option requires a 
large amount of input that is provided 
automatically when BLM is run after TDE, TDK 


The TRANS and M0C modules are run with 
constant gas properties. See Section 6.9.1. 


6.3.2 Inputs for Control for the Program . 

Assumed 

Item Description 

IRPEAT = Set IRPEAT =1 or 2 to request that a 
TDK (or TDE) calculation be automati- 
cally repeated after the BLM module 
has been used to calculate a displaced 
nozzle wall. 

If IRPEAT = 1 , the ODE and ODK module 
executions will be repeated with 
adjusted enthalpies for regen cooling, 
see Section 6.8.4. 

If IRPEAT = 2, the 0DE and 0DK module 
executions will not be repeated. The 
system enthalpy will be unchanged. 

IRSTRT = The program allows for a limited 

restart capability. If the MOC module . f 

has been run successfully and units 
and 29 have been saved, then the run 
can be continued by input ing 

IRSTRT = 2 , 

This will restart the program after 
the MOC calculation and before the BLM 
calculation. The restart handles all 
options involving BLM. 


Units Value(s) 

none 0 


none 



Item 


Descr i pt i on 


Assumed 

Units Value (s) 


NZ0NES 


SI 


I0FF 


BLMF 


851007 


Number of zones N, to be used in the 
analysis. The 0DE and 0DK modules 
will be executed N times. Zone 1 
represents the flow adjacent to the 
nozzle axis, and Zone N represents 
flow adjacent to the nozzle wall. 

If SI-0, English units are to be used 
for input and output. If SI-1, SI 
units are to be used for input and 
output. The SI units required for 
input are shown in parenthesis. 

When BLM is run with the MOC module, 
values defining the boundary layer 
edge conditions; x , y U T , and 

“ c c G 

p e are automatically calculated and 

stored in the XIN0, RIN0, UE0 , TE0, 
and PE0 arrays. if I0FF is not input! 
then these values are stored starting 
with the first entry in each array. 
If I0FF is input then these values are 
stored starting in the I0FF + 1 entry 
of each array. V-aiues must then be 
input into entries 1 through I0FF. 
The boundary layer calculations will 
start at position XIN0(1) of these 
arrays using the $ B LM input. This 
input allows the user to account for 
the development of the boundary layer 
in the nozzle chamber, upstream of 
ECRAT. I 0FF < 100. 

If 1 0 F F is input, do not input NXIN0 
$ BLM . 

This flag controls the choice of gas 
properties and edge properties to be 
used by the blm. (See Section 2.6.3, etc.) 
If TDK has been run, then for BLMF-F, 
equilibrium ( 0 DE ) properties will be 
used . 

If TDK has been run, then for BLMF-T , 
frozen ( 0 DF ) properties will be used! 
For TDE, equilibrium properties will 
always be used. 

For TDF, frozen properties will always 
be used . 


none 1 


none 0 


0 


none F 
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5 . 3.3 Specification of nozzle geometry. 


Tb eliminate redundancy, all geometry inputs that are common throughcet tne 

... . ha+ . the center of the nozzle geometry coordinate 

modules are input here. Note that the coordinates are 

system is at the oenterline at the throat plane, and that aU coorttna 
sysxem ia axial positions upstream of the 

=3 = — 

wise. 

a. (Anp and (SDK print out is to be made are 

Geometric area ratios at which v 

specified using the input arrays ASJB(1) and ASUP(1). 

The nozzle gentry is defined in .igire W . «- « 

the downstream end of the combustion chamber with a subsonic area ^ 

as shown. The circular arcs HI and RIOT cannot overlap. Thus, 
that BCRAT, RI, ROTU, and THEM be input such that 


ygCHAI > 1 * (RI * RJBJ) (1 - COS THEM). 


, ,, nopq nf GjDK will print the terminal error 

If this condition is not met, subroutine PRES of 0>DK win p 

message: 

inlet gkmeiry incompatible mm initial conditions. 

In addition, the transonic analysis requires that a value of RVITU > 
input. 

The wall geometry downstream of the nozzle throat can be specified using any 

one of several options. All of these geometries begin with a oo- 
dles RTO which extends fr<at the throat point through an angle of ^ 

ries that can be input to both the 90S. and H8C modules are described 
6.3. 3.1. 
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Nozzle Geometry, all coordinate 
values are normalized tiy RSI = r . 


Figure 6-1: 


Item 


Description 

Units 

Assumed 

Value(s) 

RSI 

3 

Nozzle throat radius, r^ 

in, 

(meters) 

0. 

ASUB(1) 

= 

Subsonic area ratios at which informa- 
tion will be printed. 

none 

0. 

NASUB 

* 

Number of entries in the ASUB array 

< 50. Entries must be monotonic decreasing 
fn value. 

none 

0. 

ASUP(1) 

3 

Supersonic area ratios at which infor- 
mation will be printed. Entries must 
be monotonic increasing in value. 

none 

0. 

NASUP 

= 

Mumhfar of entries in the ASUP array 
< 50. 

none 

0. 

BCRAT 

3 

Nozzle inlet contraction ratio for use 
in 0DE and 0DK calculations. 

none 

0. 

RI 

= 

Normalized inlet wall radius. 

none* 

0. 

THETAI 

3 

Nozzle inlet angle. Z- 

degrees 

0. 

RWTU 

3 

Upstream normalized wall throat radius 
RWTU_> .5 is required. 

none* 

0. 

ITYPE 

a 

Type of nozzle wall to be input. 

ITYPE » 0, if the real wall contour is 
input. 

I TYPE = 1 , if the potential flow wall 
contour is input. 

If IRPEAT = 1 or 2, then the nozzle 
wall will be displaced by +_,$* as cal- 
culated by BLM when the TDK (or TDE) 
calculations are repeated. This dis- 
placement is -5* for the real wall 
(I TYPE = 0), or +6* for the potential 
flow wall ( ITYPE = 1 ) . 

none 

0. 


* Normalized by the throat radius, r t 



6 ' 3 * 3,1 g* fo ust Nozzle Geometry Specificati on, for 0DK and the Mflc Modules. 


Item 

IWALL 


Description 

option flag for specifying the 

downstream wall. 

1 cone option (input RWTD, THETA, and 
EPS) 

2 parabolic nozzle contour option 

(input RWTD, THETA, RMAX, ZMAX) 

3 circular arc nozzle contour option 
(input as for IWALU2) 

4 nozzle contour (spline) option (in- 
put RWTD, THETA, THE, RS, ZS, NWS) 

5 cone with specified end point, 
(input RWTD, RMAX, and ZMAX) 

6 skewed parabola option. (input 
RWTD, THETA, RMAX, ZMAX, THE) 


The items required for the various IWALL options are: 


Assumed 
Units Value(s) 


none 


0 


RWTD 

' 

downstream wall throat radius of cur- 
vature ratio** 

none* 

0 . 

THETA 

3 

nozzle attachment angle 



THE 

= 

nozzle exit angle 
or 6) 

(input if IWALL=4, 

deg. 

0 . 

EPS 

= 

nozzle expansion 
IWALL=1 only) 

ratio (input if 

deg. 

0 . 

RMAX 

3 

normalized radius at the nozzle exit 
plane (input if IWALL=2 or 3) 

none* 

0 . 

ZMAX 

= 

normalized axial position at the 
nozzle exit plane (input if IWALL = 

none* 

0 . 


* Normalized by the throat radius r , 


I £. a . corner ex Pansion (i.e. Prandtl-Meyer fan) is desired a value of Rwvn 

- cssssss^ sr 



It em 
RS ( 2 ) 


ZS( 2 ) 
NSW 

RZN0RM 


+ See 
851 007 




table of normalized wall radii 
downstream of the nozzle 
tangency point (input if 
IWALL-4). The input tables RS 
and ZS start with the second 
entry because the first entry 
is calculated automatically by 
the program, i.e., RS(1)»r T 
and ZS(1)-z T in Figure 6-1. 

The wall angle at this 
position is also calculated so 
that the spline contour will 
be properly joined to the 
nozzle throat contour. 

table of normalized axial 
position downstream of the 
nozzle tangency point (input 
if IWALL-4). 

total number of entries in the 
RS, ZS tables. Includes the 
first entry. NWS'S 50 (input 
if IWALL-4). 

optional normalizing factor 
for the RS , ZS, RIN, ZIN 
tables. For example, if RS, 
ZS, and RIN, ZIN were input as 
dimensional numbers, RZN0RM 
would be the throat radius in 
those units. 


Assumed 

Units Value(s) 


none 0 . 


+ 

none 


0 . 


none 0 


none 1 . 


the input variable RZN0RM. 


6-26 


6.4 0DE INPUT DATA (ALL PROBLEMS SPECIFYING 0DE) 


The 0DE Input data described here is exactly as defined in NASA SP-273, 
Reference 3, except namelists input $INPT2 and $RKINP have been combined into 
a single list named $0DE. Any type of equilibrium calculation available with the 
computer program described in Reference 3 can thus be computed using the $0DE 
input data*. In this document, however, only the RKT option of namelist is 
described. The RKT option differs from that of Reference 3 for problem types 
other then single zone 0DE. 

The QfDE Input data consists of the following input groups: 


1 . 

REACTANTS 

directive card, followed by up to 15 
data cards, followed by a blank card, 
specifying reactants. 

2. 

0MIT and INSERT 

directives to omit or insert species for 
equilibrium/frozen calculations. 

3. 

NAMELISTS 

directive card followed by input 
namelist $0DE specifying input 
case data. 

6.4 

.1 REACTANTS CARDS 



This set of cards is required for all ^jue problems. The first card In the 
set contains the word REACTANTS punched in card columns 1 to 9. The last card 
in the set is blank. In between the first and last cards may be any number of cards 
up to a maximum of 15, one for each reactant species being considered. The 
cards for each reactant must give the chemical formula and the relative amount 
of the reactant. For some problems , enthalpy values are required. The format 
and contents of the cards are summarized in Table 6-7. A list of some REACTANTS 
cards is given in Table 6- 8 

Relative amounts of reactants . - The relative amounts of reactants may be 
specified in several ways. They may be specified in terms of moles, mole fraction, 
or mole percent (by keypunching M in card column 53) or in terms of weight, weight 
fraction, or weight percent (blank in column 53). 

Relative amounts of total fuel to total oxidants can also be input. For this 
situation, each reactant must be specified as a fuel or an oxidizer by keypunch- 
ing an F or O, respectively, in column 7 2 of the REACTANTS card. The amounts 

*These options include TP, HP, SP, TV, UV, or SV problems, Chapman-Jouguet de- 
tonation problems, and incident or reflected shock problems. 



TABLE 6-7 


REACTANTS CARDS 


Order 

Contents 


Card columns 

First 

Any 

REACTANTS 

One card for each reactant species 
(maximum 15). Each card contains: 

3A4 

1 to 9 


(1) Atomic symbols and formula num- 
bers (maximum 5 sets) 

5(A2. F7.5) 

1 to 45 


(2) Relative weight b or number of 
moles 

F7.5 

46 to 52 


(3) Blank if (2) is relative weight or 
M if (2) is number of moles 

Ai 

53 


(4) Enthalpy or internal 
cal mole 

F9.5 

54 to 62 


(5) State: S, L, or G for solid, 
liquid or gas. respectively 

Al 

63 


(6) Temperature associated with 
enthalpy in (4) , ° K 

F8.5 

64 to 71 


(7) F if fuel or 0 if oxidant 

Al 

72 

Last 

(8) Density in g cm 3 (optional) 
Blank 

F8.5 

73 to SO 


“Program will calculate the enthalpy or internal energy (4) for species in 
the THERMO data at the temperature (6) if zeros are punched in card 
columns 37 and 38. (See section Reactant enthalpy for additional in- 
formation.) 

^Relative weight of fuel in total fuels or cxidnnt in total oxidants. All 
reactants must be siren either all in relative weights or all in number 
of moles. 






TABU 6-8 LISTING OF SAMPLE REACTANTS CARDS 


REACTANTS 

M 2. 

N i 7808810 .209795AR.CC4662 


too. 

100 . 


o* C298.15 F 

-7.202164C298.15 0 


REACTANTS 


C , u 4 ’. CL1 * 0 «• 

iU.' l,8 *” S0 • 031256S .008415 

"Cl! o 1. 

» 2. 01. 


72.04 -70730, 8298,15 F 

18.58 -2999.082L298.i8 F 

9.00 *C.O S298.18 p 

.20 -143700, 5298,15 p 

.14 -68317,4 L298.15 F 


REACTANTS 

* ?. 

0 2 . 


00 

00 


100. o, 

100.0 o.o 


0298,15 ft 
0298,15 0 


reactants 

*2. H|, 

* 2. H 4, 

F 2. 


C 2. 


50.0 

50.0 

100 . 


12734,8 L298.15 
12050. L298.15 
-3030, 892L 85,24 


F ,7 86 
F 1.303 
0 1,54 


REACTANTS 

Hi. 

F 2. 


100, 

100 . 


0. S298.15 P 

-3030, 892l 85,24 o 1,54 


REACTANTS 
N 2, 

8Ei, 

» 2 . 


*0. 

12100 , 

1293, 15 

p 

1.003 

20, 

0.0 

S29S,i3 

p 

1,35 

100, 

-44*30, 

C293,i5 

0 

1.407 


-Listed above 


are six examples. 


Each example must end with a blank card. 



given on the REACTANTS cards are relative to total fuel or total oxidant rather than 
total reactant. 

There are four options in the $0DE namelist for Indicating relative 
amounts of total fuel to total oxidant as follows: 

1 . Oxidant to fuel weight ratio (0F is true) 

2. Equivalence ratio (ERATI0 is true) 

3. Fuel percent by weight (FPCT is true) 

4. Fuel to air or fuel to oxidant weight ratio (FA is true) 

For each option, except 0DE with NZ0NES*1, the values are given in the 
0FSKED array of $0DE (described in Section 6.4.3). For 0DE with NZ0NES=1, 
the MIX array is used as described in Reference 3. 


Reactant enthalpy. Assigned values for the total reactant are calculated 
automatically by the program from the enthalpies of the individual reactants. 
Values for the individual reactants are either keypunched on the REACTANTS 
cards or calculated from the THERM0 data as follows: 


Enthalpies are taken from the REACTANTS cards unless zeros are punched 
in card columns 37 and 38. For each REACTANTS card with the "00" code, an 
enthalpy will be calculated for the species from the THERM0 data for the tempera- 
ture given in card columns 64 to 71. 


When the program is calculating the Individual reactant enthalpy for 
values from the THERM0 data, the following two conditions are required: 

1. The reactant must also be one of the species In the set of THERM0 data. 

For example, NH^(g) is in the set of THERM0 data but NH^U) is not. Therefore, 
if NHj(g) is used as a reactant its enthalpy could be calculated automatically, 
but that of NH^U) could not be. 

2. The temperature T must be in the range Tj qw /1.2 sTs T^.g^x 1.2 where T low 

to is the temperature range of the THERM0 data. 

For cases with NZ0NES > 1 (see Problem card. Section 6.3) it may be de- 
sirable to modify the enthalpy of each zone. This can be done by using the DELH 
input array. For the 1^ zone the i^ 1 DELH entry will be added to the system 





>4 


enthalpy as computed by 0DE from the reactants cards (see above) For ™ , 

°Zsi:i zitjzv izz n,s lnthe tank can be inputthroi,sh th - : “ 

:r= — - - - = r;i“ “ -r- 

Input enthalpy per zone by the DELH entries. 


6.4.2 


gMIT and INSERT Cards 


0MIT and INSERT cards are optional. They contain the names of particular 

Z? L' he ‘ D - fOT « h ' — tftc purposes d.Tcussed 

car contains the word 0MIT (in card columns 1-4) or INSERT (In 

card columns 1-6) and the names of from 1 to 4 species starting in columns 16. 

TH^tta 61 - nSmeS mUS ' ba e “ CtIy the " ,hSy the 


6. 4.2. 1 0MIT Car^ 

These cards list species to be omitted from the THERM 0 rf 0MIT 

cards are not used, the program will consider as possible species ail those 
species in the THERM 0 data which are consistent with the chemical system 
e ng considered. Occasionally It may be desired to specifically omit one or 

ZZTTl 0 : C0nslderatl ° ns - possible species. This may be accomplished 
by means of 0MIT cards. 

6.4. 2*2 INSERT Carrfc 

These cards contain the names of condensed species only. They have 
been included as options for two reasons. 

The flrst and important reason for including the INSERT card option Is 

V. " r ^V n5tSn ! eS ' U 1S lmposslble to obtain convergence for assigned enthalpy 
problems (HP or RKH without the use of an INSERT card. This occurs when, by 

nsiderlng gases only, the temperature becomes extremely low. In these oases 
the use of an INSERT card containing the name of the required condensed species' 
eliminate this kind of convergence difficulty. When this difficulty occurs, 
e o owing message is printed by the program: “LOW TEMPERATURE IMPLIES 
CONDENSED SPECIES SHOULD HAVE BEEN INCLUDED ON AN INSERT CARD "7 
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Th. ..eond and to "*^**™ 

••«»» P> rtleular COnd * n ” d P '°‘ ‘ th.r. .man amount of computer 
compositions for the first ass 9 g£RT ^ Those condense d species whose 

time can be saved by us ng INSE RT card will be considered by the 

chemica 1|°™ ula# t | a i iteration s for the first assigned point. If the INSDtT 

program during the init ^ WQuld b9 con ,idered during the initial 

card were not use , on y g program would automatically insert 

iterations. However, after convergence, th *^ a ™ ofe< u usually l9 

the appropriate condensed species an recon h assigned points 

rrr * » *• — 


6-32 



_$0DE NAMELIST INPUT 




and SsZlo™ SUbPr ° 9ram COmaIns "»H« input sec, tons S0DE 

Pune h e“ d col“. $OTE * ’"~ hd b ' a — »«* ^MEUSIS 

*scri 15 reqU ' Ved ,f "* =1 - ™ ■«. 1" SDATA as 

lilt Te^i^Tp a ;; wrrr erent equmbrium ««“-• -» - 

«*. 0DE-QtDK-TDK, '* « T ' DnM ' “* «««. ^ the 0DE- 

solved . In this section only the mil! T*', °" Iy “* Pr ° b,a ™ «“ 

*" USSd tQ ‘" p « *- the other e^uulTuT pthTe^ ' 3 “ 

ITi e variables Input by the SGfnr „=» , , 

TabIe 

-Ha °f atmospheres unless ei“erTs« ^truTTsi ^ T ? 

~ may he specllled hy 

for any of these, the program assumes 'the r'elauinT “ "° Val “ e ‘ S 

to be those specified on the REACTANTS cards °‘ IUel(S) ^ ° Xldl2ar(s) 

Czrds, Section 6.4.1 and Section 5.2. l) 0 ^' <See dlscuss ‘°" REACTANTS 

with NZ0NES>1 (sLILk “ p «, Ch s“ b “ n 7 S 3 S ) Ure ' P ‘ ‘ S ( ° be ‘ nput for =«« 

* hel zone will be the value Input for P ^ S,a9 " atIon Pressure used for 

schedule XP. If „ ot i„ put , aJ , w P by ‘ ha ' v ’ a,ue ln Pct In the 

tries are assumed equal to one. For TDK type' 



p *.g£ 




problems, zone one Is taken about the nozzle | ° th^" wU1 have , mixture 

.one is bounded * ^^“dule. 

ratio equal to the l entry stagnation) 

* ill he aiven for the chamber pressure condition U.e. 

Print out will be given conditions by use 

,nd the throat condition. Print out may be requested at o.he 
f tht PCP schedule and the SUBAR and SUPAR schedules . 

° .e prodram will calcrete £ " 

FR0Z = F or EQL - F are np , c e will be calculated . 

be calculated. U EQL - F. only frozen performance will 

, , „ h " specifying chamber value:. -■« 

Ordinarily , rorkot, problem- ... •' j 

p aiTl It Is possible, however, to run 1 zone cases .1 

.'LATA) by specifying P and T. For example: 

$0DF. 

RKT = 1 

p = chamber pressure, 

T = chamber temperature, 

can be used to set the cb^er temperature and 
resulting charter enthalpy will be calculated and me - 


TABLE 6-9 


VARIABLES IN $0DE NAMELIST 


No. of 
entries 


Type 


ERAIT0 

FPCT 

FA 

0FSKED 


DELH 


DELHI 



Definition and comments 


False 


False 

False 

1 . 

False 

False 

False 

False 


I I ^ False Rocket problem 3 

p \ 0 Id! 1 

0 Assigned pressures: stagnation pres- 

s' 6 f °r rocket problems: values in 
atm unless PSIA, or SI = .T., (see be- 
I III low) 

p SIA 1 L False 3 Values in P array are in N/m a 

^ * L aValues ln p array are in psia units 

° I 1# Multipliers for the i th zone stagna- 

Uon Pressure (zone 1 = inner zone) 

I 1^1 ** 3 * se I Oxidant to fuel weight ratios are to 

I I I be Input 3 

ERAIT0 1 T I pi— I 

PP CT False Equivalence ratios are to be Input 3 

FA 1 I FalSe Percent fuel by weight are to be input 3 

0FSKED 50 I FalSe FUSl t0 alF W6i9ht r3tios 3re to be in P utS 

| 0 Rocket Problem , and NZ0NES > 1 . 

I[| 0FSKED will be used rather than MIX 
j 111 ' see ^e^erence 3). Relative amounts of 

total oxidant to total fuel are input as 
defined by 0F, ERATI0, FPCT, or FA. 

| For 0DE-0DK- TDK and TDE problem 
types these values define the oxidant to 
| III ra t* os tor each zone (zone 1 = 

! I I inner zone) 

DELH | 50 I R I a | — , 

u Corresponding to each zone this value 

wiU be added to the system enthalpy 
| III Input thru the reactants cards. Units 

S^ t BT 2 /# * PSIA =- T - Joule/kUogram 
| {(I “ M*.T. , otherwise cal/gram. 

° ELH1 50 R 0 Corresponding tc each zone this value 

'll 11 be ^dded to the system enthalpy 
These values can be used as a 1st est- 
1mate for the heat returned to the main 
combust! on chamber by regen cooling 

c1rcuits (0 p C input in SBLM). The BLM 
"111 recalculate these values and, if 
=1 in SDATA, rerun the ODE, 0DK 

TDK (° r fDE) analysis. Same units us 
DELH. 

a If variable is set to be true. " “ ^ 

l0te stagnation U pressure If'tl 


b-3L 




Table 6-9 (cont'd) 


Variable 

No. of 

Type 

Value 

Definition and comments 


entries 


before 





read 


I0NS 

1 

L 

False 

Consider ionic species 3 

WFL0W 

1 

R 

0 

Input nozzle mass flow option for 0DE- 
0TDK-IDK or TDE problems. If a value 



1 


forWFL0W is input an expansion with 
this mass flow will be computed. The 
values input for P and XP are used as 
estimates for computing stagnation pres- 
sure for each zone. The program will 
adjust these stagnation pressures to 
obtain the desired nozzle mass flow 
within a tolerance of RELERR. Units 
are lbs/sec if PSI=.T. otherwise kilo- 
grams/sec. 

RELERR 

1 

D 

.0005 

Relative difference between requested J 

1 



and computed mass flow rate. The pro- 
gram stops If this error is exceeded. 


PCP 

50 

R 

0 

Compute and print solutions at these 
values of chamber pressure to pressure 





ratio (entries must be >1.) 

SXJBAR 

50 

R 

0 

Compute and print solutions at these 
values of subsonic area ratios (en- 





tries must ft 1 .) 

SLJPAR 

50 

R 

0 

Compute and print solutions at these 
values of supersonic area ratio (en- 





tries must ^ 1) 

ECRAT 

1 

R 

0 

Subsonic area ratio to start 0DK cal- 
culations with computed equilibrium 
conditions. The SUBAR input table 
must include an entry equal to ECRAT. 

EQTHST 

1 

L 

False 

To start 0DK calculations with com- 
puted equilibrium conditions at the 
nozzle throat. 3 

EQL 

1 

L 

True 

Calculate rocket performance assum- 


ing equilibrium composition during 
expansion* 5 . 




FR0Z 

1 

L 

True 

Calculate rocket performance assum- 
ing frozen composition during expan- 
sion* 5 . 

LISTSP 

1 

L 

False 

List names and dates of all species a 
residing on thermodynamic data used . 

KASE 

1 

I 

0 

Optional assigned number associated 


- 

with case. 


a If variable is set to be true. 

b Set variable false If these calculations are not desired. 








— - ' 3 4 1 Variable Mixture Ratio Mi., 


setting vlrnx-™? b : ; U " “ ith 3 Variable " 1 «“" °Ption by 

as described below. ” " lnPUttlnK Values int ° the STREAM(I) table 

no mixture rau ° opu ° n is 

1 *' utles m the flow. Instpprl tho r, 

fro. the axis (*=0) to the wall ( * 1) a “ “ U1 ^ 

0FSKED vs. STREAM • specified in the tables of 

is invoked laaKt .\ ln ^ ^ ^ ^ 

::: rr,: ™ =- ssassss: 

The program will not function proDerlv if 
the mixture ratio table, 0FSKED( 1 ) ls too large *" 
spacing depends on the chemical system As a rule h reqUlred 

BFSKEDd, must differ no more than 4 or 5% from “t ! ^ 

depending on thP u- 5% f lts ad J acent values 

ichiometry of the system. There are nn 

:::t ui r n rai; r s:eie STRE “ (u tabi - — 

the last entry equal “T ” USt 

The tables XP( 1 ), DELH ( 1 ) , and DELH 1(1) of $0DE can be 
m which case ppph can be u sed , 

STREAM ( 1 ) . 7 C ° rresponds to entries in 0FSKED(1) and 

Will be computed 'by the" th6 XM<,> ° f $ ® DK $TRMS “ iU 

computed by the program and need not be input. 
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Item 

VARMIX= 


STREAM ( 1 ) = 


Assumed 
Value ( s ) 

Description 

If VARMIX=. FALSE. , do not use 
variable mixture ratio option. 

If V ARMIX= . TRUE . , the variable 
mixture ratio option is to be 
used. The following must be 
input : 

NZ0NES in $DAT A , 

0FSKED( 1 ) in $® DE and 

STREAM ( 1 ) in $0DE, below. 

If VARMIXr . TRUE . , values must 
be input here corresponding to 
the 0/F values input in 
0FSKED( 1 ) • 


The values input represent 

(0/F) i vs 4^ i=1 , • • • ,NZ0NES 


where 


represent s 

the 

mass 

flow 

between streamline 

i and 

the axis, 

divided by 

the 

total 

mass 

flow 

• 



Thus 




and 


4 > = 

0 at the axis, 


= 

1 at the wall. 


The 

ith 

entry of 

0FSKED is (0/F ) i • 

The 

ith 

entry of 

STREAM is 


VI 

o 

i 1 i 

= 9 • * 

. ,NZ0NES 50 

and 

< >1>. 

r i l + l 




r> 


6 ' 4 - 3 - 2 gEHON TO PUNCH TABLES TOR BOt fNDARY LAYER P INPUT 

(DOES NOT APPLY TO BLM) ' 

Conditions computed along the nozzle wall can be output as punched cards 
for input to the BLIMP ."Til. or MABL boundary layer analysis computer programs. 

“ m ° nS ” * the bOUndary layer program as being the 

in Isold flow condition at the edge of the boundary layer. Tables to be punched 

™‘ *' h' a " d V/?C ft ’ e ' the n ° 2Zle waI1 coordinates and the ratio of pressure 
am er pressure along the wall). The tables are punched In NAMELIST for- 
mat readable by BLIMP . 


The wall ? ° f 50 entr ‘ eS UPStream 01 0,6 throa( are s™* and punched. 

500 total toW ^ “ d ^ eVefy ° haraCterIStlc ls up to a maximum of 

will be off , T‘ eS ' The “ Ser ^ SP6Clfy 8 number by whlch Punched table 
of larr u p ' the POlnt ma! ' be 0UtpUt wl,h “«tmc«Uon S by Input 
upstream ’ ^ the user to extend 016 table by adding points 

If punched cards for input to a boundary layer program are required , the 
-allowing items must be Input as part of the $0DE Namelist input: 


Item Nams 
IPTAB 


Description 

F ' ° ne title card wi ^l be punched (this will 

be the last title card input as described in 6 2) 

r^eL tabla / ° f X V Y - and P/P = al°"0 the nozzle 
Mini 171636 cards are for ^Put: to fie BLIMP or 

comesDon!? f programs. The first point punched will 
correspond to beginning of the converging section of 

Sue“1® . ( ‘- e - a ‘ JCRAT: see p ‘9ure 6-1, also 
r0FF+l St POtat “ be punched will be numbered as 

If IPTBL and IPTAB=1, tables of M T/T C V an rt 

?eauii?iri a f S0 . be puilched - ^ese additional Bards are 
required for input to the TBL computer program (i e 

the December 21, 1973 version). 

. “ 3 roE Pr ° blem is Speclfled ' the following Lems must also be input 

when IPTAB=l; RSi f rwtu, thetai, and ri m $data. 


I0FF 

IPTBL 


ZZ ri de£lne 0,6 n ° Z2le 9e ° netry from the combust lon chamber through the 
shown to Figure 6-1. For a TDE option it is necessary that IPTBL-0. 
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6 .5 DDK INPUT DATA 


0OK input data is repaired if *DK =1 on TDK -1 >n SOMA as described 
(n section 6.3. The 00K input data consists of three data groups as follows. 


SPECIES 
REACTIONS 
S 0DK 


data group 
data group 
data group 


These data groups are described below in sections 6.5.1, 6.5.2 
resoecti vly . 


and 6.5.3, 


6.5.1 SPECIES 

Species used by the computer program are determined in several possible 
Species usea uy used to determine chemical 

ways, depending upon the problem type. Method 

species for each probelm type are discussed below. 

0DK 

If 0 DF.=O and 0 DF >1 In &DA 7 A, then specie:, n. 
be input, see Section n.F. - • - • 


and consent v 


ffPE-GfDK 

. ,<r-. ,ri+- (■ | i or i* 

If 0TE-1 and 0DK-1 In SPAT A, then the mi.iu.. — • ■■ ‘ ; 

, An obtained from an 07F. equilibrium -.l-ulation. 

kinetic expansion one outline 

generated by 


‘O r y 
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the equilibrium calculation generally contains many more species than the 40 

species for which the 0DK subprogram Is dimensioned. Therefore a selection 

processes Is required to interface the 0DE calculated equilibrium start conditions 

with the a DK kinetic expansion calculations. This selection is performed using 
the following rules: 


RUlS 1 calcul P a e «OT. aPP6arS ln a reaction ' ^ is selected for the kinetic 

^ 2 tothSkS^ cSfons.^ mERTS dirSCtiVe U IS SSleCted 


Rule 3 If any species has a mole fraction greater than an Input criterion 
It is selected for the kinetic calculation. criterion. 

Species which are selected but which do not appear in a reaction are treated as 
Inert and listed as such on the output list of selected species. 


QDE-ODK-TDK 


For problems with 0DE=O and 0DK*. 


op' Jl'ro 




S - However, for multizone TDK cases it is necessary that 

each zone have the same species list. Ihus the INERTS input (see Section 6.5.2 ) 

must be used to assure the same species are selected for each zone. 


6.5.1. 1 SPECIES 


1ARD OPTION FOR IMPVT OF 1 IMI^I 


(APPLIES ONLY IF pDE =0 ,urp OPK*! V' 1 CpATA) 

This input begins with a single card with SPECIES in columns 1 through 7 
end with either MASS FRACTIONS or MOLE FRACTIONS in columns 9 through 22. 

If the identifier for mass or mole fractions is omitted, mass fractions are assumed 
Up to 40 species cards may be input. Only those species specified hv.n r „ 
sp ecies cards will be considered for an ODK problem . The order of the input 


species cards Is Independent of the order In which the species appear on the 
master Thermodynamic Data file. 

A chemical species Is Identified symbolical by 12 
ecers and must correspond Identically with . the species nam^ ^ 

on the Thermodynamic Data file. A comp e e specified In 

listed in Table 6-4 (condensed species, however, may not be specified 

L species list.) The species symbol may not contain the characters or -. 

Function 
Not used 

Species symbol (left Justified) 

Not used 

^ format° 
TTsar Identification if desired 


Col 

1-10 

11-22 

23-30 

31-60 

fil-80 


This 

otherwise 

V , etc.) 
c 

Sect ion 6 . 


type of input also requires input 
would be provided by ODE. These 
are input with the $0DK data set 
5.3.6. Example input is given in 


of other items 
o ther i terns ( P c » 
and are described 
Table 6-12. 


that 


T 


c ’ 

i n 


i-_UO 



6.5.2 


IliI_iNPUT_OF_CHEMIC AL_RE ACTIONS 


Chemical reactions must be input if 0DK=1 in $DATA. 

ail other reacts Sd P ™ -Perrin, 

eactions. Species names appearing in fhp Q , 

reaction set must correspond identically with the ym ° 10 

as they appear in ih* Y th th pecies names 

" an the -aster Ther -od y , o Data t see Table 6-,,. 

The symbolic reaction set contains directive ca a 
reaction/data cards In g roups as outlined below: ^ 


REACTI0NS 


Directive for start of 
symbolic reaction input 


END TBR REAX 


east reax 

INERTS 

THIRD B0DY REAX RATE RATI0S 


Reactions with implied 
body species 


third 


Directive for 
body reactions 


end of third 


All other reactions 

T° r end of 


Directive 

reactions 


Specified Inert Species 

Directive for start of third 
body reaction rate ratios 


last CARD 


Directive for 
REACTI0NS input 


end 


of 


The content and format of each type of 
below: 


card are definec 
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6 5.2.1 RE ACT 1 0N S_T h r £ ugh_L A S TJL £ A X 


. l* P rard containing 
The symbolic reaction input begins -ith 

the u0 rd REACTIONS in columns 1 through 9. 

t „ oa „ he used to specif, the nominal 
columns 11 example the card 

direction of the reaction rate data. 


reactions forward rates 


will cause all reaction rate data to ^ „ or d REVERSE 

right) direction unless otherwise sp ^ ln tne reverse 

instead of FORWARD means the direction -ill be the 

direction. If out, the nominal rate 

forward direction. 

„ „ „ ......... ... • 

.......... ......... ..... 

reaction and only one reacti 60 „ le3 mu st precede cards 

specifying reactions » bodle s. The content and 

specifying reactions without 

format of the reaction cards is define 


The general form of a reaction is 


I v. *a i - 1 v i * a i 

where the u^s are species 3lae a f the above 

stoichiometric «” frl “* n a „d tne right hand side the 
equation represents tn 

products . 

is name must correspond identically with 
Each species nam . Data File, e.g., 

it appears in the Thermodynamic 

species name c s it PP 
see Table 6 - 4 . 
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The stoichiometric coefficients must be intergers and an * 
must separate the stoichiometric coefficient from the species 
name. If no stoichiometric coefficient is given, the value 1 is 
assumed. It is also required that 

Z v i S 1 0 

Z v ! £ 10 

examples : 


Rea £ t, i^o n Interpretation 


H+H 

- H 2 

H + H 

- H 2 

NA+CL- 

- N AC L 

Na + + Cl~ 

NaCZ 

B+2+M-2 

- BM 

+ + - - 
B + M 

BM 

BE+2+2*0H~ 

- BE0H0H 

Be + + + 20H ~ 

= Be(0H) 


The reaction rates are defined by three numerical values PI , 
P2, P 3 input as E or F format. Three types of reactions can be 
input, as discussed below. 

Ar r hen ius_ form 

£ Vj a. ■ Z a. , Mn , A = PI, N = P2, B = P 3 
or 

» 

I a 1 - Z v. a, , Mn , KF =» PI, P2, P3 

Input of the above type defines a reaction rate of the form 
k = P1*T" P2 * e ~P3*1 000/RT ^ R . 1>m 
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Land au-Teller form 

E v. a. * E v! a. , Mn , *KF = PI, P2, P3 

Input of the above type defines a reaction of the form 

_ i / 3 - 2 / 3 

k - ex p ( P 1 +P2 +P3 ) • 

Log 10 form 

Z v. a . =* Z v, a , , Mn , ^ K F = PI, P2 
li i i 

Input of the above type defines a reaction of the form 

1°8iq k = PI + P 2 * T . 

In the above reactions if KF is replaced by KR, then the 
rate will be for the reverse (right to left) direction. 

The Mn' s in the above reactions are the third body 
descriptors for the reaction. These descriptors are optional 
for dissociation-recombination reactions, out must be left out 
for exchange reactions. They are used to multiply the reaction 
rate by a factor that is defined by the descriptor. 

The dissociation-recombination reactions with third body 
terms must precede other types of rections, and must be followed 
by the directive starting in column 1: 

Coll + 

END TBR REAX 

All reactions prior to the above directive will have a third 
body term added to each side of the reaction; e.g. , 

H 2 - H + H , M4 , . . . 

END TBR REAX 
is the same as 

H + M 4 = H + H + M 4 , . . . 

where M4 is a generalized third body as specified in Section 
6. 5. 2. 3. If no Mn is specified, the generalized third body is 
assumed to be defined by Mo. 
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The reaction set is terminated by a card containing LAST 
REAX in columns 1 to 9. 

6.5.2. 2 I n e r t,_S p e c j. e s Option 

Inert species (i.e. species not appearing in reactions) can 
be included in the input by input of a card with INERTS in 
columns 1 through 6 followed by a list of inert species names. 
The species names must each be followed by a comma and each name 
must be written exactly as in the master Thermodynamic Data. 
The last comma must be followed by the word END. The species 

list can continue onto the next card, but a species name cannot 

overlap onto the next card. 

6 . 5 . 2 . 3 Thi rd Bo dy_ R e a c t i on_Ra_t e_Ra t i o s 

If reaction rate ratios, m.^ , are to be input for the 

dissociation-recombination reactions, a card with THIRD BODY 

REAX RATE RATIOS in columns 1 through 27 must be input next. 

In p ut. , the pr ogr am_as sume s all 
— ij — - ' If thls card is included in the input, it must be 

followed either by a card with ALL EQUAL 1.0 in columns 1 
through 13 (which sets all m ± ^ = 1 ) or by cards defining the Mn’s 
as described below. 

The Mn's on the reaction cards are used to identify a group 
of third body efficiencies which pertain to all of the reactions 


which 

declare that 

grouping. The format of the Mn statement 


Mn » m . * 
J 

a j « m k * a k etc 

where 

n 

m . 
J 

integer between 0 and 100 inclusive 
multiplier for the species named 


a . 
J 

• 

species name 


♦ 

• 

e t c . 



8501 49 


6-4 7 



If no multiplier is given for an a, a value of 1.0 is 
assumed. The user may declare that all of the third body reaction 
rate ratios for a particular grouping are 1.0 by using the 
statement 


Mn =* * 

If no Mn is declared on the reaction card, then MO is assumed. 
Example: (fictitious rates) 

RE ACTI0NS F0RWARD RATES 


H + 

0H = H 2 0 

, A 

- 7 . 5E23 , N - 

CD 

(\J 

0 + 

H - 0H , 

M2 , 

KF = 4 . 0 + 18, 

1,0, 

0 + 

0-0 2 , 

M2 , 

KF = 1 . 2E1 7 , 1 

, 0, 

H 2 

= H + H , 

M3 , 

KR - 6 . 4 E 1 7 , 1 

, 0, 


END TBR REAX 


0 . 0 , 


LAST REAX 

THIRD B0DY REAX RATE RATI0S 
MO = . 5*H2 , 20 . *H20 , 

M2 - . 5 *H2 , 5 * H 2 0 , 

M3 - * 

LAST CARD 

In the above example the first reaction does not declare an 
Mn, so M0 is used. The second and third reactions share the 
same third body reaction rate ratios by declaring the same group 
identifier, M2. The fourth reaction uses the identifier M3 
which has all of its third body efficiencies set equal to 1.0. 
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6 . 5 . 2 . i) LAST CARD 


reaction input data is terminated by a r> a r d co • • 
LAST PARn u i * d .^ard containing 

1 CARD ln columns 1 through 9 . 

6. 5. 2. 5 Masterjeaction Set 


master reaction set is presented in Table 6-10 Tt 

rr s F che „ mioa : 3pecies a - a — ^ ^ 

r e :::i;: t :;: ppensu # in “ hi ° a the rate aau - w* 

are I"'.? Z" ^ ^ 

analyzed „r " y 81Ven 0f ' emloal that is to be 

S ea care must be taken in selecting th*> 
reaction set. Table 6-10 ma 8 the a PP»'opriate 

6 10 may or may not be sufficient. 


Oxygen/Hydrogen’ sys^mT^ The" th i r 7' \o6 f °" ^ 

“ in .able „ and 1 1 1 us t r Z" J? ^e ’* " " “ " = 


for 

are 
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TABLE 6- 


10 REACTIONS AND 


RATE DATA FOR C,CL,F,H,N, AND 0 SYSTEMS 
(SEE APPENDIX A) 


ca, "S . i 2 ;To. 


H ♦ H * H2 
H + OH * H20 
0 + 0 * 02 
H ♦ 0 * MO 
N + N * M2 
CO ♦ 0 * C02 
o + H * OH 
F + F = F2 
H ♦ F * HF 
CL + CL * CL2 
H + CL = HCL 
CL ♦ F = CLF , A 
END TBR REAX 
02 ♦ H * 0 ♦ OH 
H2 + 0 s H + OH 
H2 ♦ OH * H20 ♦ H 
OH ♦ OH = H20 ♦ 0 
CO + OH * C02 + H 
H2 + 0 a NO ♦ N 
02 ♦ N = NO ♦ 0 
CO ♦ 0 = C02 
rn? + 0 * CO + 02 


6.4E17 , 
= 8.4E21, 
= 1.9E13, 

* 6.4E16, 
. 3.0E14, 
» 1.0E14, 
j3.62E18 ( 

* 3.25E8, 


K- AT **( -n)*EXP( • 1000B/RT ) 

, B . 5*5. <«!> S*^CH 72 (A) 30J 

s 2 0 B 3 0.0, <AR) BAULCH 72 (A) 10U 

* l-i' 1 BAULCH 73 8 IS 

! nn' R =-99' (N2> BAULCH 73 (C) 10U 
no' B “ 0 o' (AR) BAULCH 76 (B) 30U 

: i’o* I l 0.0 CAR) JENSEN 78 CB) 30U 

t nt , * -j.wtu.w, " * ' q 73 /^r) BAULCH 81 (A) 10U 

,K8, A * 3.25E8, N * ^ ® * ,3 (AR)BAULCH 81 (A) 30U 

M9, A = 7.5E12, N = 0.0, 8 - 3 . , 13/BAULCH 81 10U 

>10. A =2.23E14, N - iX> iSbWLCH 81 5U 

• * s : S:?: 1 = K'^Ii/cp^ zsu 


F + H2 = HF + H 
H + F2 = HF ♦ F 
CL2 + H = HCL + CL , 
CL + H2 * HCL ♦ H , 

HCL + F = HF + CL , 

CL2 + F * CL + CLF , 

CL ♦ F2 = F + CLF , 
CLF ♦ H = HF ♦ CL , 

CLF ♦ H = HCL + F , 

CLF + H2 = HCL + HF, 
F2 ♦ HCL » HF ♦ CLF, 
CLF ♦ HCL * HF *CL2, 
F2 + CL2 = CLF *CLF, 
OH + F = HF ♦ 0 , 

H20 + F * HF + OH , 
CL + OH = HCL + 0 , 

OH = H20 ♦ CL, 


A a 2.2E14, N 
A = 1.8E10, N 
A a 2.2E13, N 
A = 6.3E12, N 
A = 1.5E7 , N 
A = 7.6E13, N 
A = 6.4E9, N 
A = 2.5E6, * 

A = 1.7E13, ► 
A = 9.2E13, ( 
A = 8.8E13, I 
A = 8.6E13, 


0.0, B =16.8, 
-1., B = 8.9, 

- ' _ r A r 




- B = 6.25, 
= 0.0, 8 = 3.18, 
= 0.0, B = 52.7, 
= 0.0, B = 1.08, 
= 0.0, B = 2. AO, 
= 0.0, B = 1.2, 
=1 . A5E13, N = 0.0, B = A. A, 


1.9E12, 

= 6.2E12, 

= 7.6E12, 
= 1.8E12, 
= 5.6E12, 

, * 1.8E10, 

, = 1.8E10, 
i = 1.8E10, 
l = 1.8E10, 
( = 2.9E12, 
V = 1.AE10, 
\ = 5.9E12, 
\ =2.25E12, 


N =-.68, B = .6, 
N 


.-.68’, B = .5, 

H =-.68, B = .3, 

N =-.58, B = 3.2, 

N =-.68, B = 1-9, 

- B =A6.34, 
B =39. A3, 
B =46.03, 
B =26.76, 
B = -2, 

B = .6, 

B =5.72, 

B =1.02, 


= ••5, 

= •■5, 

= -. 5, 

= •• 5, 
=-. 68 , 
=- . 68 , 
= 0 . 0 , 
= 0 . 0 , 


BAULCH 72 (A) .5U 

BAULCH 72 (A) 1.5U 
BAULCH 72 (A) 2U 
BAULCH 72 (A) 3U 
BAULCH 74 (A) 3U 
BAULCH 73 (C) 3U 
BAULCH 73 (C) 2U 
BAULCH 76 (B) 2U 
BAULCH 76 (B) 3U 
FOON 75 (A)30U 

BAULCH 81 (A)IOU 
29/BAULCH 81 10U 
31 /BAULCH 81 10U 
32/CPIA2A6 25U 
33/CPIA246 
34/CP1A2A6 
35/CPIA2A6 
36/CPIA2A6 — 
37/CPIA2A6 1000U 
38/CP 1A2A6 1000U 
39/CPIA246 1000U 
AO/CPI A2A6 1000U 
52/CP1A246 25U 

53/CPIA2A6 
BAULCH 81 
BAULCH 81 


25U 

25U 

25U 

25U 


25U 

10U 

10U 


HCL + 

LAST REAX 

Ml 1*AR^ 71*00^ 6^4*002, 25*H ,A*H2, 10*H20, 1*N , 1 .5*N0, 1 ,5*H2,25*0, 

M2*= H 1*AR^3*CO*A*C02^12.5*H,5*H2,17*H20,1*N,3*NO,3*N2,12.5*0,12.5*OH, 

H3°='l*AR 4*C0,8*C02, 12.5*H,5*H2,5*H20, 10*N,4*NO,4*N2, 12.5*0,12.5*0H , 

in 2 :8*AR.1*CO,3*CO2,10*H, r H2 7*H20 

Ss = 1*AR,i*CO,2*CO2,10*H,2*H2,3*H2O,10 ^i^^io, 1*0H, 25*02, 

$ : 

MA°-'l*H2 2 4*F2 1*HF,1*N2,1*N,2.A*F,1*H, 

SI *= 8*H2^1*F2, 2*HF ,2.8*N2, 1*N,4*F ,20*H , 

H10 = 1*AR,1*HCL,5*CL2,1*CL, 
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table 6-11. 


REACTION., AMD HATE DATA FOR H , 0 SYSTEM.".. 


/Ml, 
/ M2 , 
,M3, 
/ M7 , 


SEA, SEPT 12,1984 


OH 

OH 


A 

A 

A 

A 

A 

A 

A 

A 


. K=AT* 

- 6. 4E17 , N = 1. 0, B = 

- 8 . 4E2 1 , N = 2 . 0, B = 

" 1 * 9E13 , N = 0. 0, B = 

— 3.62E18, N = 1.0, 


REACTIONS HO 
« + H = H2 
H + OH = H20 

O + 0 = 02 

O + H = OH 
END TBR REAX 
02+H = 0 + 

H2 + O = H + 

H2 + OH - H20 + H 
OH + OH - H20 + 0 
last REAX 

m7^5?*u°? y reax rate Ratios 

Ml-25*H,4*H2,10*H2O,25*O,25*OH 1 5*D9 
LAST CARD ' *H20,12.5*0,12.5*0H,5*02, 


= 2.2E14, 
- 1.8E10, 
■ 2 . 2E13 , 
= 6.3E12, 


N 

N 

N 

N 


0 . 0 , 

- 1 ., 

0 . 0 , 

0 . 0 , 


B = 

B 

B 

B 

B 


* (”N) *EXP ( -1000B/RT) 

0-0, (AR) BAULCH 72 (A) 30U 
0*0, (AR) BAULCH 72 (A) 10U 
-1.79, (AR) BAULCH 76 (A) 10U 
0.0, (AR) JENSEN 78 (B) 30U 

=16.8, 

= 8.9, 

=5.15, 

=1.09, 


BAULCH 

72 

(A) 

1. 5U 

BAULCH 

72 

(A) 

1. 5U 

BAULCH 

72 

(A) 

2U 

BAULCH 

72 

(A) 

3U 



6.5.3 $0OK NAMELIST INPUT. 


$0DK Namelist input specifies the conditions for the kinetic expansion calcula- 
tion. The input is read in subroutine 0DKINP and consists of the following groups 
of data as outlined below: 

6. 5*3.1 Specification of Nozzle Geometry 

6 . 5 • 3 • 2 Integration Contro 1 

6.5. 3. 3 Print Control 

6. 5. 3. 4 Species Selection and Mass/Mole Fraction 

Check 

6. 5. 3-5 0DK Problem Input 

6.5«3« 1 Specification of Nozzle Geometry . 

All of the nozzle geometry is to be input using the SDATA Namelist input, see 
Section 6.3*3 and Figure 6-1. 

An $>DK calculation will be carried out for each mixture ratio input in $FSKED 
of $0DE whenever 0DK * 1 in $DATA. 

For a TDK problem, it is necessary that the 0DK calculations be run past the 
nozzle throat. Usually it is not desirable to run the 0DK calculations all the way 
to the nozzle exit because of the extra computer time and Drint out that results 
However, if this is desired on a TDK problem, It can be requested by input of item 
HP as described below. 


Item 


Description 


Assumed 
Units Value(s) 


$0DK 

2S 

Namelist, read in subroutine 

0DKINP. 

HP 

= 

If TDK = 1 and a value is input 
here for EP, then each ODK will be 
run to expansion ratio EP. 


none 


0 



6. 5. 3. 2 INTEGRATION CONTRQ1 



The integration routine controls the step size such that the relative 
error in the dependent variable increments are less than a prescribed fraction, 
DEL. Only doubling or halving of the step size is permitted, and on option, ’ 
either all the variables may be considered (JF=0) , or only the fluid dynamic 
variables (JF— 1) may be considered. 


When the flow becomes supersonic and the area defined fluid dynami; 
equations are used, an additional check on continuity is applied in the form 


(pVA, N + l ' ( ^ VA) 
(pV A) 


N 


N+l 


< C0NDEL 


where C0NDEL is an input relative criterion. 


The step size is held between the two input bounds HMIN a 


-no rliVlAA • 

Futed step cases may be run by setting input values for HI, UMAX, HMIN all 

n „ . .. Assumed 

Description Units y a ] U e (s) 


equal 

Item 


HI 

HMAX 

HMIN 

DEL 


initial step size 

none 

.01 

upper bound on step size 

none 

0. 10001 

lower bound on step size 

none 

.005 

fractional incremental 
error 

none 

.00 1 
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Item 


Description 

Units 

Assumed 
V a 1 u e ( s 

TEXPLI 


temperature below which 
explicit integration will 
start. Not recommended. 

°R 

0 

CGfNDEL 


relative error criterion for 
continuity check for super- 
sonic flow 

none 

lxlO" 6 

IF 

= 0 

all variables considered 
for step size control 

none 

0 


* 1 

only fluid dynamic variables 
considered for step size 
control, i.e., p,u, and T 

none 



6. 5. 3. 3 PRINT CONTROL 


Output from .the Kinetic Expansion Calculation consists of complete 
output for each print station selected. The end point of the nozzle is always 
printed. Print stations are selected from one of the following options: 


Item 


Description 


Assumed 
Value (s) 


JPRNT 


-2 print throat and input area ratios (see ARPRNT) -2 

nozzle.* Print at selected wall contour points 
for contoured nozzles . Tor 1 h ° spline lit 

option (IWALL=4), print out will occur st 
each entry in ZS of $DATA . Por other con- 
tours (IWALL = 2 or 3), print out will 
occur at 20 equally spaced axial locations 
along the nozzle. 

0 print at every integration step 

+1 print every ND3rd step up to the throat and 

then nominal area ratios 

+2 print every ND3rd step over entire nozzle 


*For JPRNT = -l and a conical nozzle (i.e. IWALL = 
ratios arc: 

ARPRNT (1) = 2,3,4, . . . ,39,40,42, . . . , 58 , 60 , 64 , . 
220 ,...,400 6-54 


1), the internally set area 
. . 116 , 120,128 200 , 210 , 




If JPRNT is +i or +2 , the following 
Item 


ND1 

ND2 

ND3 


must be input: 

Description 

first integration step to be selected for 


last integration step to be selected 


print 


for 


print ever/ ND3rd step between ND1 


and 


If JPRNT is -? foii^ • 

‘ ne blowing must be input: 


Item 

ARPRNT(l) 

njprnt 


Description 


requested area ratios for print must he 

i.o 

’'Blues from ASIJP of' SnilA USe 
number of area ratios requested for print 


An extended print option may be selected as follows: 

— SE Value Description 

IDYSCI _ 

no extended print requested 
extended print option seiected (not sugg este H ) 


» 0 
- 1 
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g j, 3. 4 SPECIES SELECTION AND MOLE/MA SS FRACTION CHECK 

In order to Interface 0DE equilibrium calculated start conditions 
with the kinetic expansion calculations, special consideration must be made 
for inert species (those not appearing in the reaction set) . Inerts may be select- 
ed explicitly by use of the INERTS directive or by use of a relative selection 

criterion. 

If A MULTIZONE TDK PROBLEM IS SPECIFIED INERTS MUST BE SPECIFIED 
VIA THE INERTS DIRECTIVE. This is required so that the chemistry selected for 
multizone cases will be compatible* 

The INERTS directive is described in Section (6. 5. 2. 2) . 

The relative selection criterion (0DK or 1 Zone TDK problems,) 

Function 

all species which do not appear explicitly 
in the reaction set but whose mole fractions 
are greater then the input vaiuc for EPSEL, will 
be retained for the kinetic expansion. Species 
selected under this criterion are treated as inert. 
The program assumes EPSEL = 1 .OE-5 , unless input. 

In some instances it may be desirable to use input species concentrations 
which do not sum to unity. Species concentrations, either input or from equili- 
brium start conditions, are summed and the sum checked as described below. 

Item Name Function 

XMFTST = Input species concentrations are summed and checked 

versus unity using this incut criterion. If 

j 1 -^species concentrations |<XMFTST 

then the test is passed. The species concentrations 
will then be normalized such that 
^species concentrations = 1. 

The program assumes XMFTST = 1.0E-3, unless input. 

If the test is not passed, an error message will be given and the 


is described below: 

Item Name 
EPSEL - 
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run terminated. 


3 ■ 5 ££°2£2_Expan3ions_wn^ 

The ODK module can be 


of 


run using a frozen expans 


i on by Input 


SHGAMF 


t ha t ^ th e ^RE AC T I OHS ) N D ^ BR E AX ^ 63 e "^ ed ^ 13616 6 " 2 ' 

included 1„ the input b t ^ L#ST CAB ° direotl ™° 

•« ,::: r/rr:: -rr are 

Whenever TDF =1 i ■ able 6-12, without ODE. 

TDF =1 is input, SHGAMF = 1 is set - a „, n „ . 

iS sel automatically, 


6.5 . 3.6 


ODK PROBLEM INPUT 


This input is required when 2JPE-0, 0DK-1 nre inpr. 


in tDA.TA . 


A kinetic expansion from input arbitrary start conditions is 


to be computed. In addition to the input items described in section 6.5.3, an 
0DK problem requires input of those items described in Sections 6.5. LI anc ^ c. .c 


Input for a hydrazine monopropellant engine is given in Table 6-12 as an 
example of the ODK problem input. 


Item Name 


Incut Quantity 

Vntts. 

PC 

31 

chamber pressure 

PSIA 

T 

a 

initial temperature 

°R 

V 

m 

initial gas velocity 

ft/sec 

JPFLAG 

- 0 

pressure table 
calculated internally 

none 


= l 

pressure table input 


ECRAT 

s 

initial contraction ratio 

none 


SI Units 

N/M 3 

°K 

m/sec 

none 


none 


For JFFLAG ■ 0 option the following must be input: 


Item Name 
PI 

PE STAR 


Input Quantity 

Initial pressure 
throat pressure 


Units SI Units 

PSIA N/M 3 

PSIA N/M 3 


For JPFLAG = 1 option the following must be input: 


Item Name 


Input Quantity Units 


PTB(l) 

ZTB(l) 

NTB 

Z 


normalized pressure none 

table entries* 

normalized pressure none 

table coordinates** 

number of pressure none 

table entries, s 127 

initial axial position none 


* normalized to input chamber pressure, PC 

** normalized to input throat radius, RSTAR. ZTB represents the streamline 
path length. 


T;jble 6-1.2: Input Dnt.'i ( v lt - ||y-j,..- ix j nr . p, ;fK 


)!>: *ory-. j 1 1 'inf; Rn/'i xy 


THERMO 

300.000 1000.000 5000.000 

. 3100190 1E+01 .51U9464E-03 °52644210E-07 

-• 19629 «“ + 01 • 30574451E+01 

■ 55210391E-08 -.18122739E-11 -.98890474E+03 

• 28963194E+01 .^ 54^2 - 0 57 0 23527°7E-i6 

• 61615148E+01 .36748262+01- 

• 3217559E-09 -.22577253E-12 -. 10611588E+04 

^ J 9/65N IH 300 000 nr 

0.24165177E 01 0. 618712UE-02-0. 21785i?L-2f 0 

“0 * 8 3833 385F Ofl °’ 77043482E °1 0.35912768E 01 0 
^ 838333852-08 0.27299092E-11-0. 66717143E 04 0 

IB THRUSTER, N2H4 MONOPROPELEANT 


300.000 5000, 
'• 34909973E-10 
. 26765200E-02 - 
. 22997056E+01 
300.000 5000. 
. 99807393E-10 - 
. 12081500E-02 
. 23580424E+01 
300.000 5000. 

■ 37599090E-09-0 
49388668E-03 0 
22520966E 01 


000 

. 36945345E-14 
■ . 58 099 162E-05 

000 

•65223555E-14 

.23240102E-05 

000 

24448856E-13 

83449322E-05 


: 1 , 

.0937, 
29.2, 

. 01 , 

70, 

1.846, 
1.846, 

5, 

ZMAX 


TTITE 5 
DATA 
$DATA 
ODK 
RSI 
ECRAT 
RI 

THETAI 
RWIU 
RWID 
IWALL 

= 9.872, ZMAX = 33.404, 

$END 

SPECIES MDIE FRACTIONS 
NH3 
N2 
H2 

REACTIONS 
END TBR RE AX 
LAST CARD 
$ODK 

JPRNT = -2, 

EP = 97.456, 

^^IT = 14^ ^ 15 ' 20 ' 25 ' 30,40 ' 50 / 80, 70,80,90,97 

SHGAMF = 1 , ' 


.17310 

.30448 

.52242 


456, 


PSIA 
PC 
T 
V 
PI 


- T, 

= 106, 

= 2030, 

* 64.76, 
= 105.97, 
PESTAR = 57.812, 
$END 


1 

2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 
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6 . 5 . 3. 7 


MASS AVERAG ED 0DK BP w . - 

A mass averaged jZ>DK ISP summary page may be obtained at the en 


the 0DK calculations as described below: 


Item Name 
MAVISP -1 

XM(1) 


pescrlDtion 

Specifies mass averaged ISP option 

Ratio of mass flow rate of each zone (zone 
» inner zone) to the total mass flow rate. 


1 



6.6 


$TRANS NAMELIST TMPrrr 


When a M0C problem has been specified, 
for the transonic calculation. 


the input data set $TRANS is 


required 


Item 


Assumed 

D escription Value(s) 


$TRANS 

XM(1) 

ALI 


IBUG 


Namelist, read in subroutine TRAN 

Ratio of mass flow rate of each zone (zone 1 

t0 the total 113333 flow rate. 

if MAVISP = 1 option spe- 
cified and XM input in $0DK). V 

f^mber of degrees initial line will be disp- 
1 ced downstream. The program assumes ALI 

.. z f r ?’ ^ ^1 ^ 3 zero, a symmetric 
throat is required (RWTD = RWTU). 

If input is nonzero, intermediate transonic 
output will be printed. atonic 


50*0 


The following input be used to control the destruction of the initial line: 


Item 


Description 


Assumed 

Value(s) 


MP 


Number of^o^nts to be placed on the initial 

A sinus iodal distribution of the following form 
is used: a 


50 


r 1 TT 

r i = ^sin ( f2 )] 1 = 0,1,2....N 

were N = MP and e 1 is 2XP1 described below. 
Editing is done to control the spacing, see 

TT?>T ~ c 
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Item 


Description 


Assumed 

Value(s ) 


EXP1 

DRMIN 


DfWINI 


for sinusoidal distribution. 

Editing criteria for sinusoidal 

distribution. The first initial line point 
below the wall, r 1 , will be spaced such that 

r - r, > min [DRMIN * RWTD, .025] 
w i 


If a value of SH0CK=1 is to be input in 
$MCC, then set DRMIN 3 . 001 


Editing criteria for sinusoidal 
distribution. Points on the initial line 
will be spaced such that 

r - r > DRMIN1 
n n-1 


$END 


6.7 


$MOC NAMELIST INPUT . 


'i'., C . '. f. , 

Of POOR QUALITY 


data set contains the 
istics (MOC) module. The items 
in the following subsections. 


input items for the supersonic Method of Character- 
are divided into four types, which are described 


6 . 7 . 


Ohuraoterist ios fresh 
7 Option 


Centro 1 


6.7.^ inputs from DIOR 

u *'0 rixlt riant; Option 


Often no $MOC 
ficient. 


input is necessary since the default values are usually suf- 
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6 . 7-1 


Characteristics Mesh Control 


I 1 e m_N a m e I n P u t _ 


Units 


$MOC * Namelist name, read by subroutine 
CHAR . 


DS - insertions will be made such that none 

successive points along 

streamlines will not be separated 

1 /2 

by more than DS *M as described 
in Subroutine CNTRL. 


DTWI - A criterion for insertion in degrees 

too 

subroutines INPT and DSPT as 
described in Subroutine CNTRL. 

DWWCI - throat wall point insertion degrees 

control parameter A9 WC described 

in Subroutine CNTRL. 

DWWI - wall point insertion control degrees 

parameter A0 described in 

Subroutine CNTRL. 


EPW - the program will insert such that none 

the wall end point is located 
within a tolerance EPW. 


ES 


e for point editing as described none 

s 

in Subroutine CNTRL. 


8501 50 


Assumed 

Values 


. 1 5 


. 5 


3 . 


.01 


.0001 


6 - 6*1 


Item 


ETHI 


IMAX 


IMAXF 


or 

IMAXF 


ST0PI L 


TEXPLI 
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Name Injou t_Quant i ty 


Assumed 

Units Values 


e 6 f ' or P° int editing as described 
in Subroutine CNTRL . 


degrees .25 


the maximum number of iterations 
to be allowed while attempting to 
achieve a relative convergence 

for the flow variables of 5*10~^. 


the program will terminate the 
case if a printed point requires 
maximum iterations for 
convergence. 


none 0 


0 the P r °gf'am will continue the case 
after IMAX iterations per point 
have occurred . 


if a value other than zero is 
input, then the program will 
construct the initial data line 
for the MOC and call EXIT at the 
end of subroutine CHAR. No MOC 
calculations will be done. 


none 0 . 


input temperature below which 
explicit integration for the 
species concentrations will be 
used (not recommended). 


R , 


K if SI Units 
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6.7.2 


MOC Shock Option 


The shock option can be run for the following problem types: 


TDK , 

TDF , 

PFG0PT . 

The shock option can not be run for the following problem 
types: 

TDE , 

TTDK . 

There are three methods by which the shocks can be located, 
as discussed below. 


a ) I n d uc^d_Shoc_k _0 p_t 

If the MOC induced shock option is requested (SH0CK=1, 

I SHC K=* 2 ) , then the mesh construction begins at the 

intersection of the initial data line and the flow axis. 
RRC’s are constructed. After the nozzle wall is reached, 
succesive RRC's may cross. If so, a shock is inserted into the 
flow field at the cross-over point. Next, LRC's are constructed 
starting at the wall, and the region up to the cross-over point 
is filled in. The LRC construction then continues with the _1st 
point on each LRC being a right running shock point. When the 
axis is reached, the shock is reflected as a left running shock. 
The program then reverts to a RRC construction scheme and the 
shock is traced until it reaches the wall. It is then reflected 
from the wril, and is calculated as a right running shock 
propagating towards the flow axis. Only one shock will be 
traced, but multiple reflections are allowed. 
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b ) Attached__Shock Option 

In the case of an attached shock (ISHCK-3), the mesh 
construction is the same as for the induced shock up to the 
requested x-location (XA) of the attached shock. Then, instead 
of looking for a crossing of RRC’s, a shock point is attached to 
the wall at the XA location. The shock strength is determined 
by the deflection angle of the wall at the XA location. The 
shock is then traced just like in the case of an induced shock. 

c ) M h o c k Option 


Two shocks can be traced with the multiple shock options 
(ISHCK=6 or 7). The first shock can be either an induced shock 
(ISHCK-6) or an attached shock (ISHCK-7), but the second shock 
must be an attached shock. The x-location of the second 
attached shock is specified by the variable XB. 

The mesh construction for this option is now described. The 
first shock is calculated as above until the end of the nozzle 
is reached. Next, the calculation of the second shock and part 
of the flow field affected by it is repeated. In this 
construction, the first shock may not go to the center line and 
the two shocks must not cross over inside the nozzle. 


ITEM NAME INPUT QUANTITY 


ASSUMED 

VALUE 


SH0CK= 


If SH0 C K = 0 , shocks will be ignored 
and the MOC flow field will use LRC 
construction. 

If SH0C K= 1 , a shock will be inserted 
traced as described above. 


0 
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ITEM NAME 


INPUT QUANTITY 


ASSUMED 

VALUE 


ISHCK* 


X A = 


X 3 =■ 


If ISHCK-2, crossing of RRC's will be 
ignored for all RRC’s that originate 
at the wall upstream of axial coordinate 
position XA. If the shock is too 
strong, it cannot be ignored. 

If ISHCK-3, an attached shock is started 
at the XA position. 

If ISHCK=6, two shocks are traced. 

The first one is an induced shock as 
in ISHCK-2 and the second is an 
attached shock at the axial coordinate 

position XB. 

If ISHCK-7, two shocks are traced. The 
first one is an attached shock as in 
ISHCK=*3 and the second is an attached 
shock at the axial coordinate position 

XB . 

Axial coordinate position on wall 
discussed under ISHCK, above. 


Axial coordinate position on wall as 
discussed under ISHCK-6 or 7 above. 


tangent 
point at 
end of 
throat 
circular 
arc. 

0 . 


3 Print Control 


Item Namp 
N1 


N2 

NC 


MASSFL 


NDS 


Input Quantity 

flow parameters will be printed 
for every Nl^ interior point a- 
long characteristics selected 
ior print 

every N 2 tt characteristic will 
be selected for print 

for NC ji 0 species concentra- 
~? n f ^ partial densities) will be 

« NC-1 the quantities A, B,y 
heat capacity (BTU/Lb-°R) and 

species concentration 
at the completion of each left runnino 

ssssssr- (lrc) the 

if 

MASSFL 


MASSFL 


MASSFL =■ 2 
MASSFL » 3 


see 


0 then no mass flow printed 

1 then total mass flow and the 
number of points on the LRC 
are printed for each LRC 

then mass flow for each poir 
along LRC is printed 

f"i* M M/ssn. = 2 with th< 
addition of execution time at 
the end of each LRC 


Subroutine CHAP 


win k? S 7 1 Dividi hg Streamline Points 
wUl be printed. (Nominal) 

will S?** ° DlWding Streamline Points 
will be suppressed. 3 


Units 

none 


none 


none 


none: 


none 


Assumed 
Va 1 ues 

1000 

1000 

0 



6.7. *» Inputs from DER. Reference 24 


Item Name 
0FBAR 

ETABAR 


DRPISP 


Input Quantity 

Overall mixture ratio In- 
cluding condensed phases. 

For print out only. 

Overall evaporation efficiency, 
i.e. the ratio of gas flow to 
total propellant flow at the 
throat. I so » total = ^sp,gas 
♦ETABAR SP P 

Ratio of total condensed 
phase momentum to the mass 
flow at the throat. Not used, 
reserved for future use. 


Units 

none 


none 


lbf sec/lbm 
(if SI Units then 
N sec/kg) 


I 

I 
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6.7.5 Exit Plane Option 


construction through thTTxn “ l0Uiatl ° n wlU «*<«« the mesh 

PUne properties . (not operations! for the sho^p 1“™ ‘ ^ ““ 


Item 


Description 


Assumed 

Value(s) 


exitpl 


$END 


^ fn“%p^ona Wor Xa^tion . 

S' “?e.Xer n *" ™ « to b 

IRPEAT = 1 , or 2 in $DATA 

£z* , n? t £r: r m 56 «*«w «r 

runT TOK run, but not for the first TO» 


.false. 
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6 . 8 Boundary Laye r _M o d u 1 e _jB L M )__ I n £ u t _ D a t a x _$ B L M 

This input data set is required; if the BLM is to be 

executed, i.e.. if BLM - 1.0 was input in the $DATA namelist. 

Most of the data required by thd BLM is communicated 

automatically by the 0DE and/or M0C Modules, or is preset as 
assumed values. Hence, these data items do not necessarily need 
to be input to the BLM module. However, any value that is read 
in will override the assumed or communicated value. 

The input data items to the BLM module are as follows. 


I tern 


Assumed 

Description UniH lillliil 


$ BLM 


Namelist name, read in 
Subroutine INPUTB 


WD0T2D 


w . nozzle mass flow. 

2D ’ 

If the MOC module was not 
executed, a value can be 
input here so that a boundary 
layer ISP decrement can be 
computed . 


lb/sec 


1 . 


I PRNT - If IPRNT - 1 , then print the 

boundary layer profiles at 
every 5th station. 


850150 
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6 . 8.1 


B L M_ G a s_ P r o p erties 


Cas properties that are required by the BLM are Y, c R 

an u versus T, and a value for the Prandtl number, p and the 
to ai enthalpy , v 0rdInarlly these #aiues ^r- • 

by the 0DE Tb * tables are prepared by ODE 

Where T vl ” “! <T ' S) „ aq u 1 1 1 br 1 um '» f frozen) calculations, 
varies from 600 R to 7000°R at 200°R increments. The 

Chamber entropy value is used for S. Values at ,00°R are then 

extrapolated and added to the table The tahl 

With thP RIM . tables are printed 

„ and th ' “ P C ~ts defining the gas viscosity, 

module. 6 d “ nU " ber ' are 3130 PPepa '- <!d "y ‘he ODE 


used in pl^ 1, ’‘V ° r * U ° f th6 above items can be input and 

has not b the ValUe3 PreP3red "y 0DE - if the ODE module 

in u I" the " 311 ° f the lt3mS ll3ted bP10 “ b e 

Put. The assumed values are for air with constant c . 


ITEM 


description 

UNITS 

ASSUMED 

VALUE(S) 

CKO ( 1 ) - 

Table of ratio of specific heats, 
y t versus T . 

none 

2*1 . J| 

CP0(1) = 

Table of 

specific heat at 




constant 

pressure, C versus T 

f t/sec-R 

2 * 6 0 0 6 

HS ( 1 ) = 

Table of 
versus T 

static enthalpy, h, 

2 2 
ft /sec 

-6.01E5.3 


. 88E6 


6-73 


ITEM 


DESCRIPTION 


UNITS 


VALUE ( S ) 


HT0TAL > 

Total enthalpy, h T> such that 


h T " ^ ^chamber ^ ' 

RRO ( 1 ) - 

Table of gas constant, 


R-1546. 33/Mw vs T. 


2 2 
ft /sec 


lb-ft/lbm° 


TO ( 1 ) - Temperatures corresponding to 

the entries in CKO, CPO, RRO, 
and HS arrays, above. 


NTAB - number of values entered in the 
CKO, CPO, and TO arrays. 2 £ 

NTAB S 101. 


RMU I 


TI 


Reference viscosity, u 0 , where lbm/ft sec 
viscosity is expressed as 
u - U 0 (T/T 0 )“ 

reference temperature, T , for °R 
viscosity. See RMUI, above. 


0MEGA = Viscosity exponant, to, 
RMUI, above. 


See 


PR 


Molecular Prandtl number, Pr. 


Note: The above default values for u Q , <u, and Pr are 


8501 50 


3 . 85E6 


R 2*53-3 


440,7000 


3 


605934*10 


6032 


.76 


.72 


.or air. 
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ITEM 


descr iption 


M5LI1S VALUE (S) 


HT0TAL 


Total enthalpy, h T , 


h ( T . . ) 

chamber 


such that 


RRO ( 1 ) 


Table of gas constant, 
R-1 546 . 33 /Mw vs T. 


2 2 

ft / sec 3.85E6 


lb-ft/lbm°R 2 * 53.3 


TO ( 1 ) 


Temperatures corresponding to 
the entries in CKO, CPO, RRO, 
and HS arrays, above. 


NTAB 


number of values entered in the 
CKO, CPO, and TO arrays. 3 £ 
NTAB < 101. 


440,7000 


3 


RMUI 


T I 


Reference viscosity, , where lbm/ft-sec. 

viscosity is expressed as 

M - y ( T/T ) w 
o o 

reference temperature, T , for °R 
viscosity. See RMUI, above. 


605934*1 0 


_ H 


6032 


0MEGA 


Viscosity exponant, a>. See 
RMUI , above. 


.76 


PR 


Molecular Prandtl number, Pr. 


.72 


Note : 


The above default values for u 

o ’ 


<*>, and Pr are for air. 
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6.8.2 Boundary Layer Ed ge Conditions 

- — - - — zx ri 

table. Conditions at the mvlacld edge are apecifed ln^ ^ ^ ^ ^ ^ xTQW 

XIN0 tables. Conditions at the wall are spe total) In 

tables'. The program will redistribute the Input stations Upt S - » 

order to have 101 x-stations uniformly distributed per se^nt except^ ^ 
first five stations which are generated non-unlformly. e P 

y.«e- T e’ P e’ T w ■* (PV, w ^ olated at ** ne “ ’“ StaU ° n9 

the boundary-layer calculations. 

Values of RINO versus XINO and the conditions at the U**M « the^boun- 
dary layer will be auto^tlcally transmitted from the HOC -dule lf “J™ 

J. Otherwise, they must be l*ot here. See the description of I0FF in $DATA. 


Conditions at 

the wall must always be input here. 

Units 

Assumed 

Value(s) 

Item 

Description 


XIN0(1 ) = 

x axial coordinate 
e 

none 


RIN0( 1 ) 

v . radial coordinate 
J e’ 

none 


UE0(1) 

U , gas velocity at the inviscid 
edge 

ft/sec 


TE0(1 ) 

T , gas static teoperature at the 
6 

inviscid edge 

°R 


PE0O) 

p , gas pressure at the inviscid 
edge 

psi 


NXIN0 

number of items in the XIN0, RIN0, 
UE0, TE0, and PB0 tables. 

2 < NXINO £501 

Do not input if I0FF was input 
in $DATA . 

none 
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Item 

Description 

Units 

XTQW(l) 

X , axial coordinate for the TOW 
w 

and CQW tables. 

none . 

IHFLAG 

Flag specifying wall boundary con- 
dition input through TQW array. 

IHFLAG =0, for temperature 
IHFLAG = 1 , for heat flux* 


TQW(1) 

V wall temperature or wall 

heat flux, depending in IHFLAG. 

For an adiabatic wall, set IHFLAG = 
1 and all TQW(1) = 0. 

For a n o n - adi abati c wall with 
prescribed heat flux, set IHFLAG= 

1 , and note that for heat flux from 
the boundary layer to the wall.TRe 
TQW(l) entries will be negative. 

°R 

or 

BTU 

i n £ - s e c . 

CQW(l) 

(PV) w , mass transfer parameter at 
the wall (only useful for suction) 

2 

lbra/ft -sec 

NTQW = 

Number of axial stations, X^. Each 

of the above tables must have this 
number of entries. 

2 < NTQW < 501 . 

- 


* 


Default values are set for 
TQW(1) = 501*0. 


an adiabatic wall. 


i.e. , 


IHFLAG = 1 , and 


Assumed 

Value(s) 

1000 . , 0 ., 1000 . 
1 

5 01*0. 


5 01*0 
3 
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6.8.3 Integration Step Size Control . 


Item 


Description 


Assumed 
Units Value(s) 


NSEGS 


Humber of Segments , . 1 < NSEGS <10 
The boundary layer wiTT be divided into 
segments of equal length unless values are 
input into XSEG, below. 


none 


1 


NISPS(I) 

XSEG(l) 


Humber of Integration Steps per 
Segment, £ 101 per segment. 

Vector containing the axial (x) lo- 
cations which define the wall seg- 
ments. The vector is always HSEGS 
+ 1 values long. Default values 
are- 

XSEG(i) * z c + (z m - z c^ ( i_1 )/ NSEGS 

where z Q and z ffi are the end of the 

cylindrical combustion chamber, and 
the end of the nozzle , 
respectively, as shown in Figure 
6-1 . 


none 10*101 


none 


see 

descrip- 

tion 


i=l ,2, . . .NSEGS+1 


If the boundary layer is to be 
ext aided upstream of z c , the usual 

procedure is to input 
XSEG(1) = XIH0O) 

and XIM0O) through XINO(IOFF), 
etc., of $BLM are input by the user 
as described in $DATA under input 
item I0FF. 

Station at which transition to 
turbulent flow is allowed. The 
program starts with an assummed 
boundary layer profile, and then 
turns on the eddy viscosity terms 
for turbulent flow at station HTR. 
For a laminar boundary layer, set 
HTR large, i.e. NTR > ^NISPS(I). 


Note: 


The default value of NSEGS=1 is often too small for reliable results. The 
user must specify enough segments and integration steps (NISPS) so that 
reliable results are computed. In general, nozzles with high area ra ^ 10 
and/or low Renolds number flow will require more integration steps. See 
example cases in Section 7. 
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6 ' 8 ’ 4 Regenerative Cooling Heat Transfer 

is r!^“ device ’ propeiiant (usuaii y «■» 

tte conlant. ®la heat la then returned to 

o^r~ tz«t Tr zie uai1 t “ perata,res are «— *»« 

Ptlonj, the BUI will calculate the heat flux free, the boundary layer 

e SeC) ' ' DK3eValues ean alao be Input directly (IHFLAG ■ 1 

^ emtelTT ZZ BXtSniS *" ^ ** " — *o - ope J 
increaaed by ’ P^pellant enthalpy entering the chamber will be 


AH 




(BTU/lbm) 


where 


*T is the total engine mass flow rate 


dA is the nozzle surface area differential, 27rrds 

1^1^ f“TtT^ T ** " in0raTCnt3 of Propellant 

lncrementa. Iheae can be add^^Yte” 11 * 3 “* Prlnt “* **“ resultant enthalpy 
array If BLM i ^ +■ later computer run b y using the DELHI (1) input 

automatically be “*°“«oally rerun, then the enthalpy lncrementa will 

creaae la d iTTll ** ° alCUlated 10 *"> waya. If the enthalpy In- 

ase is distributed equally throughout the chamber, then 


AH, 


AH 


i.e. 


DELHKD - AH, AH, .... etc. 
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The second method is to assume that a fuel circuit adds enthalpy only to fuel, 
and an ox circuit adds enthalpy only to ox. It follows that 

for a fuel circuit 


r+1 

- < r^T> 

and for an ox circuit 

r+1 r i 

AH, - (— TT> 7“ AH 


where r is the mixture ratio of zone i and r is the overall chamber mixture ratio. 

For either method, the steady state engine cycle balance can be approximated as 
follows. First, calculate "adjusted tank enthalpies" for the fuel and for the oxi- 
dizer and input these on the reactant cards. These values must approximate the 
energy content of the propellant entering the main combustion chamber accounting 
for all energy gains and losses, except heat returned to the main combustion cham- 
ber by the regen cooling circuit(s). Estimates for these amounts are to be entered 
using the DELHI (1) input array. An estimate of zero is usually satisfactory. Cor- 
rected estimates will be calculated by BLM and stored in DELHI (1) for a second pass 
through TDK (or TDE) . A second pass using these values will be executed automati- 
cally if IRPEAT » 1 was input in the $DATA namelist. 
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Item 


Description 


Assumed 

Value(s) 


XC0(1) 
XCE(1) 
ETAC( 1 ) 
0FC(1) 


DISTRB(l) 


the Ith entry is the starting position for 
the Ith cooling circuit*. 

the Ith entry is the ending position for 
the Ith cooling circuit*. 

the Ith entry is the efficiency for the Ith 
cooling circuit. 


Type of coolant for the cooling circuit: 

0FC( I) =0. if there is no ith circuit 

= 1 ‘ Ith circuit is oxidizer 

0FC(I) =2. if the Ith circuit is fuel 
1 £ 3 

Flag for method of distributing AH incre- 
ments 


3*0 

3*0 

3*1 

3*0 


3*1. 


DISTRB(I) =0. for equal distribution of 
heat to chamber 

DISTRB(I) =1. for distribution of ox heat 
to ox in chamber, and fuel 
heat to fuel in chamber. 


The Ith entry is for the Ith circuit. 


* Normalized by the throat radius, r . 
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6.8.5 BLM Plotted Output . 


The input described below is used to control plotted output from the BLM. The 

plot options available from BLM are: 

1) Momentum thickness, 0 , vs. axial position. 

2) Displacement thickness, <5*, vs. axial position. 

3) Wall Temperature, T w , vs. axial position. 

4) Velocity profiles at specified area ratios, or at specified axial 
locations. 

5) Temperature profiles at specified area ratios, or at specified axial 
locations. 

Example plots are presented in Figures 6-2 through 6-5 for types 1 through 5, 
above. 

Assumed 

Item Description 

IPR0F = If IPR0F = 0, then supersonic area 0 

ratios are input in APR0F. 


1 

t APR0F( 1 ) 


NPR0F 


KDTPLT 


KMTPLT 


KTWPLT 


$END 


If IPR0F = 1 , then axial loca- 
tions, x/r t , are input in APR0F 

Area ratios (or axial locations, 
see IPR0F) at which velocity ratio 
and temperature ratio profiles will 
be plotted. Two frames per area 
ratio will be plotted: U/U vs. 

edge 

y/y and T/T vs. y/y 
edge edge edge 

Number of area ratios (or axial 
locations) requested in APR0F. 
NPR0F <_ 20. 

If KDTPLT = 1 , then displacement 
thickness, 6*, vs. axial location, 
x, will be plotted. 

If KMTPLT = 1 , then momentum thick- 
ness, 9 , vs. axial location, x, 
will be plotted. 

If KTWPLT = 1 , then wall tempera- 
ture, T , vs. axial location will 
w 

be plotted. 


20*0 


0 


0 


0 


0 
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6.9 


SPECIAL OPTIONS. 


6.9.1 


Constant Properties Gas Option . 


replaced by ^ ^ r8al 583 chemi3tr ^ «" be 

— «- - ** 

PRUf£) m y DIV' K3ee bection 5, subroutine 


Sample 13 ** ^ ° f PFt * lra * 1 m ®ATA. 

the constant properties gas option is Usted in •feble 5- 13 . 

"the SDATA, $TRAN and $M0C data q^+<, . 

input as described in Sections 6.3 6 6 anH / ** inPUt * data ^ are 

required additions to the STOANS * Namelist . r6SPTOtlvely ’ ^ ** Allowing 


G(1) 

PSA 

XP(1) 

TC(1) 

RGC(1) 

XMtf(l) 


-h zee, inner to outer, the 

Chamber pressure in Ibs/in 2 . ( N /m 2 if si units) 

(Fran Table 6-9) All assumed - 1, if not input. 

units) tefflPeratUre> R ' for each 20,16 » inner to outer. (°k if si 
Real gas constant, ft 2 /sec 2 °R (t « 

each zone, inner to outer. (m 2 /sec 2 °k if ST ^ * g * J *^ 986 / f V) for 

v / c K if SI unite)- Not needed if XMW is inf 

083 M ° le0Ular “ “ then urd) need noth, ^ 
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Table 6-13: Sample Case 


for the Constant Properties Gas Option. 


TITLE SA^IE CASE 0NC 


DATA 
SDATA 
PFCOPT* 1 , 
NZONESsl, 

RSI*2, 

R*ITU»2, R*T0s,5, 
THETA*35,6738, 


XWALL««* 

3* 1 1 1 

R3(2)a* 1.1&8«3,1, 26475,1,4/9 10, 1.73375, 2 
3. 6822b, 4, 847 72, 5 .79 198, 6.324*1, 
Z3(2)» ,39575, ,53008, ,82905, 1 , l 9973, t 

A. 68717, 7. 68599, 10. 9601, 13, 3U4, 


THEsl 1 ,5813, 
SEND 


STRAPS 


6=1.23, 
PSAs 1 00 , 
TCsSSOO, 
XMmsZQ, 
XM*l, 

AL I *0 , 
SEND 
JM0C 
SEND 


OK? 

OF 


, 04940 , 2 , 45930 , 

.66923,2,32795, 


POOR QUALITY 
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6.10 


D>e following defines nominal values to which variables will be set If 

not input. If , variable is listed, no nominal value Is set. Variables are set 
In the subroutine containing the Namelist read. . 


$0DE, set in subroutine 0DES 
DELH(I) « 0. 
ECRAT 
EQL 

EQTHST 
ERATI0 
PA 


FPCT 

FR0Z 

10NS 

EASE 

LISTS? 

0F 

0FSKED(I) 

PC) 

PCP(I) 

PSIA 

RELERR 

RKT 

SI 

SUBAR(I) 

SUPAR(I) 

WFL0W 

XP(0 


, DELHI ( I ) 

0 . 

.TRUE. 

.FALSE. 

.FALSE. 

.FALSE. 

.FALSE. 

.TRUE. 

.FALSE. 

0 

.FALSE. 

.FALSE. 

0. 

0. 

0 . 

. FALSE. 

.0005 

.FALSE. 

.FALSE. 

0 . 

0 . 

0. 

1. 
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$0DK, set In subroutine 0DKINP 


C0NDEL 

*= 1.0E-6 

DEL 

= .001 

EPS 

* 0. 

EPSEL 

« 1.0E-5 

HI 

N 

• 

o 

H 

HMAX 

« .10001 

HMIN 

« .005 

IDYSCI 

= 0 

IWALL 

a 1 

JF 

* 0 

JPFLAG 

« 0 

JPRNT 

« -1 

TEXPLI 

« 0. 

XM 0) 

* 0. 

XMFTST 

* 1.0E-3 

, set In subroutine TRAN 

ALI 

** 0. 

IBUG 

« 0 

MP 

* 50 

PMCRIT 

* 1 . 

PM DEG 

« 1. 

XM(D 

- 0. 

set In subroutine CHAR 

DRPISP 

= 0. 

DS 

= .15 

DTWI 

« 2. 

DWWI 

» 3. 

EFW 

« .01 

ES 

= .0001 


6 


1 


$TDK (cont'd) 

ETASAR 

ETHI 

IMAX 

IMAXF 

MASSFL 

NC 

NDS 

N1 

N2 


= .25 

* 10 
* 0 
= 1 
■ 0 
* 1 
* 1000 
* 1000 
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7. INPUT AND OUTPUT FOR SAMPLE CASES 


In this section of the report 
for three engines, as follows: 


input and output are presented 


1 ) 
2) 

3) 


the stratified flow engine, 
the Pratt and Whitney RL-10 
Propulsion ) . 


engine (prototype for OTV 


the Rocketdyne Advanced Space Engine, »SE 
for OTV propulsion ) . 


( prototype 


the 
are 
P DP 


Complete input and 
next two cases only 
given. All of the 
11/750 VAX computer 


output are given for the first case. For 
the program input and the summary output 
calculations were performed using a DEC 
system. 


THIS PAGE LEFT INTENTIONALLY BLANK 
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7 - 1 IM,stbat ified FLOW EN GINE. CASE 1 


This test case is the same one that has appeared in all 

earlier versions of the TDK program manual. it is similar to 

e oc etdyne stratified flow engine that is presented in CPIA 
246 , Ref. 1 . 


On the following pages input and output for the problem are 

hyIrog e ted ’ ThS e " 8lne ° Perate3 " Uh oxygen/ gaseous 

stratifl P ''° PellantS - The injector la assumed to produce a 
stratified nozzle flow with a mixture ratio of 6.5 near the 

;° ln ^ — 1 ««■ •»« near the wail. Equal 

flow is assumed for each of these zones. Each zone is 

assumed to ha,e a different stagnation pressure. The pressures 
are 300, 285, and 270 psia from axis to wall. 

The modules used in performing the analysis are ODE , DDK, 
TDK, and BLM. A brief description of the computer output is 
presented below. followed by Table 7-, which is a complete 
listing of the computer program print out. 

The output sequence for case 1 i 3 outlined below: 

1 • Program name . 

All input data cards are listed. 

3. 0DE subprogram output. 


a . 


b. 


c . 


description and list of 


Fue 1 / o x i d i ze r mixture 
3peci.es considered. 

Equilibrium calculation output; Frozen calculation 


Summary of . Equilibrium 
condi t ions . 


Contraction Ratio 


0DK subprogram output. 

Listing of Reactions, etc., cards as they are read, 
b. Species list from Reactions. 
c - Reaction table. 

a. Selected species list for kinetic expansion. 


PAQ£ BLANK NOT FIUKp 
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e. Dissociation/Recombination reaction rate ratios. 

f. Initial and Throat conditions for one dimensional 
0DK expansion. 

5. 2 and 3 above are repeated for each zone with redundant 
print omitted. 

6. ODK I summary. 

sp 

7. Inputs to thS transonic calculations and the calculated 
results are printed. These include 7, mass flow for 
each zone and, the slipline locations, 

8. Number of points on the initial line, characteristics 
mesh control parameters and table of x vs. r wall 
coordinates are printed. The wall table is used by TDK 
to define the nozzle wall downstream of the throat 
plane (see Subroutine WALL). 

9. A table of P, p, 0, V, r, x, and mass flow rate is 
printed corresponding to the initial data line for 
starting the method of characteristics calculations. 
The method used to calculate the mass flow rate, m, and 
the characteristic velocity, C*, (also printed) is 
described in Subroutine CHAR. 

10. Results of the method of characteristics calculations 
are then printed. The calculations begin at the 
initial data line (until the axis is reached) and 
follow each left running characteristic to the wall. 

11. TDK performance summary. 

12. BLM title page. 

BLM input geometry, and values of velocity, 
temperature, and pressure at the edge. 

13- Gas properties table supplied by the ODE module. 

1 i \ . BLM geometry and edge conditions that are equally 

spaced in X. 

15. BLM output data corresponding to 14, above. 

16. Nozzle wall geometry displaced inwards a distance 6* 
normal to the input wall contour. 

17. TDK performance summary, including the effects of the 
boundary layer . 
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TABLE 7-1. INPUT AND OUTPUT FOR THE 
ENGINE TEST CASE (3 ZONES 


* s 
« — . 


* CO 

* CK 

* »— 
* 

* Q C 

* LU 

* 00 

* O 

* *— 

* - 
* 

* ^ 
* o 


: 5 

« C* 

: 8 
* oc 


: 3 

■k — * 


: s 



- j 


tratified 


7 
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s5EGS=1 
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THEORETICAL ROCKET PERFORMANCE' ASSUMING FROZEN COMPOSITION DURING EXPANSION 






EQUILIBRIUM CONTRACTION CONDITIONS ZONE 
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SELECTED SPECIES FC* KINETIC EXPANSION 
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ORIGINAL PAGE 13 
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EXPANSION CONDITIONS KINETIC EXPANSION AREA RATIO 2.000 
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ENTHALPY IN BTU/LBM : 

FROM REACTANTS : *368.5311 
FROM DELH( ) - : 0.0000 
FROM DELHI ( ) 0.0000 
TOTAL : -368.5311 



ASSUMING EQUILIBRIUM COMPOSITION 
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WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OX.OANT IN TOTAL OXIDANTS 



equilibrium contraction conditions zone 
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SELECTED SPECIES FOR KINETIC EXPANSION 
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ORIGINAL pace , 
<* POOR QUALITY 
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THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 
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FROZEM TRANSPORT PROPERTIES CALCULATED FROM EQUILIBRIUM CONCENTRATIONS 
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SELECTED SPECIES FOR KINETIC EXPANSION 
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EXPANSION CONDITIONS KINETIC EXPANSION AREA RATIO 
ZONE = 3 O/F = 5.0000 
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DATA FOR 00E/00K SAVED ON UNIT 15 



TRANSONIC ANALYSIS SUBPROGRAM 
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7 * 2 £M T T_ A N D_ WH I T N E Y_T E S T_ ENG IN I_F 0 R_ R L Z J_0_0T V_ PR 0 PUL S 1 0 N 

This engine uses a hydrogen expander cycle with oxygen 
preheating and a nozzle that is r egenera t i vel y cooled with 
hydrogen. A flow schematic for the engine which was taken from 
Reference 25 is shown in Figure 7-1. The engine is sized to 
produce a nominal vacuum thrust of 15,500 pounds when operated 
at a chamber pressure of 39-1 psia and an expansion ratio of 
205.1. Complete input for the case is presented in Table 7-2. 
This input has been prepared by SEA, Inc. from data provided by 
NASA MSFC. The complete output for the case is rather lengthy 
and is not given here. It is available from SEA, Inc. However, 
the output summary table is given in Table 7-3. 

The calculations were carried out using the TDK shock option 

(SHOCK-1). An induced shock wave was found that originated from 

the wall inflection point just downstream of the throat. The 

shock was found to be weak ( P — p \ / p no . . . . 

weaK, J , 1 )/P 1 - .03, within the domain 

of influence for the nozzle wall. 


The sequence of calculations is as follows: 

1) ODE calculation with the system enthalpy set 


2 ) 

3) 

-O 


5) 


— j — ~ unu x ^ oc i at the 
propellant tank values, i.e., liquid oxygen and liquid 
hydrogen at their normal boiling points. 

ODK calculation starting from the above ODE results at 
a chamber contraction ratio of 3.98, corresponding to 
the chamber diameter. 

TDK calculation using the above ODE and ODK results. 

BLM calculation using the above ODE, ODK, and TDK 

dHniaHi A " 6W Wal1 geometry is calculated by 

displacing the wall inward a distance of 6* normal to 

the real wall. This new wall defines the boundary of 

RTn/TRM V1Sld ?° re flow - BLM calculated that 5288 
BTU/LBM were picked up through the wall by the regen 

bv°TDK g tn i h CU U*Ro S 1 i w e ^ noZzle mass flow was found 
y K to be 33.82 lb/sec, the propellant enthalpy was 
increased by 156.3 BTU/LB . 

ODE calculation with the increased propellant enthalpy. 
The expansion ratio of the invisid core flow is 
automatically placed in the ODE output schedule. 
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6) ODK calculation using the above ODE results, including 
the new expansion ratio. 

7) TDK calculation using the above ODE and ODK results, 
including the new wall contour. 

8) Output summary table. 

The total number of flow field points computed by the MOC 
was more than 65,000 for each pass. Computer execution time for 
the case was 2 hours and 50 minutes using a DEC PDP 11/750 VAX 
computer system. 
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TDK Input for the RL-10 OTV Test Engine 
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Table 7-3* TDK Performance Summary: RL1Q Engine 


ORIGINAL PAGE IS 
OF POOR QUALITY 


<J 2 

LU - 

CO c 


k 

Q 



o«- 

O O 
-4* 


«“ O 

o o 
• + 


00 

n« >o ro 

• O 00 


o o o o o o 



o o o m o 

nONro>c 

(MO • «— t- 

■ • v* »- «- 

co sf in . o 
co *" m m O 
oj <M tn >o • 

in r* r- sj r- 


X 

8 

3 ; a. 
co z 


3 _j 

o3 

«- (O 


S» 8 


OCOst 

§ O' (M 
ro • in 
• m fo 
^ r- O 
O' 00 • 

M in in 


«0o 

MO 

M o 
o • 

• CM 

in o 
o «- 
nk> 


oo 
o o 
+ + 

wSo 
>0 0 
in o 

NO _ 

§g 

o o 
>*“ • * 
• oo 


ss 


ooo 

ser 

O in < 
M rj ' 


ooo i 

o o o < 




IOOI 

(>001 


)CON'Oin(MO®<OcOOinc 


^T p ^ , T' 0fOOOLr 'V0 

•n<t'OMr\JOO(MO' 

s- O O O O v 0 


> 006 

^ T ^ ^ ''i • m in in N- o vr 
Oin»-^'iinN .T-^oo • n~ _ 

!*6S5i8»5HB|!525:Ha 

ooo * 



O O M N- NT 
M O O N- X* 
<MO • m oj 

S * • O' O' ro 

-4“ 00 • o 
T- vr O- co 
<M <M in in • 
in t- «— sj- w- 


s^< 

M X 

«- oc oc 

u- 

^5 < 

QCUk 


< a o 

X z 

s - 


r? v> c o oo 

'* uiujuj 


LU LU 
-J _J . . 

O O CO 03 CO 
XXJ JJ UJ 
X 

JJ3DD O 
'*<<1— »— ►— i— »Z 
U U CD CO CQ • — 


W VM/UO r-. ri r-, 

o o o o co u o 

8 S S S x S> vi 


DC DC X lj lj ij lj z t/i ui 

OOO O O U O O 'v. 'C. 

'UJUJUJi-M-iUiUJUiluOcDK i— . 

OOO 1 < 00 00 GO 00 Q_ _J U. 


i-i(/)(/)nKi 
■ CL Q. QC U- 


r-i 00 

co co o 

O O X r-t ,— i 

Z X O 

D 3 U uj uj 

i O O uj uj i 


DC UJ < LU 

a. t- at _j 

rsj *-> 
DC DC lu N Q 
UJ UJ D. O M 
CO CD 3 Z X 
X X >- wO 
< < X w 


o 

/> < 
uj at. > 


. 8 ! 


3 X *-|- 
UL ? X X < 
VX J JCC 
U UJ UJ o 
X X o O UJ 


U- X 

888 


< < ^ W C- 


W33: 

oc at oc ► 


X 

Q X 
i- x a 

x w o t— 
o ►— ^ 

3 J— < 

a.a ok 


J— >— »— ►- — O'**'/"' 

« UJ ^ — 

xxxxujujococ x uj ►— 

LU UJ LU UJ » DC ''s. N, _J O j; 

: • ' * - i »- X oc * * cduj ^ v 

X (/)-Juuu(/)v<^(i£(vvrm i 
O — J — J — I <Z % S. 

*- >< < < < 3 X X X X X »- CD 

<332Bwuocj'-»wQ.>^a>- 
^ W ^ W ooo o <n u, 


( ' U n (/) 

U UJ (/> O 

sup* 
p 2 1 

1 D CD d V) 


> 3 u 

■ UUJri 


' QCU'J'-v 




Wlfli/llLQ <ZXX<C 01 LU 

m H5(JL)UQ.CLH>I(/>(/)(/)xxqOO'“ 


- o o 

o o 
o o 

i <n on 


t- t- o 

CO ^ 

3 ^ 

OC CL 


X 

o 



7 . 3 ROCKETD YNE PROTOT YPE A DVA NCED SPAC E E NGINE FOR OTV 

PROPUL SION 

This engine uses a hydrogen expander cycle with oxygen 
preheating and a nozzle that is r egener at i vel y cooled with 
hydrogen. A flow schematic for the engine which was taken from 
Reference 25 is 3hown in Figure 7~2. The engine is sized to 
produce a nominal vacuum thrust of 22,500 pounds when operated 
at a chamber pressure of 2300 psia and an expansion ratio of 
400 : 1 . 

Complete input for the case is given in Table 7~4. This 
input has been prepared by SEA, Inc., from data provided by NASA 
MSFC. The complete output for the case is lengthy and is not 
given here. It is available from SEA, Inc.. However, the output 
summary table is given in Table 7~5. 

As with the RL-10 engine discussed in the previous 
subsection, 7.2, the calculations were carried out using the TDK 
shock option (SH0CK=1). The sequence of calculations is the 
same as given in subsection 7.1. An induced shock wave was 
found that originated from the wall inflection point just 
downstream of the throat. The shock strength at the last left 
running characteristic surface inside the nozzle (i.e., on the 
boundary of the domain of influence for the nozzle wall) was 
found to be ( P 2 - P )/ P 1 = .12. 

The total number of flow field points computed by the M0C 
was more than 95,000 for each pass. Computer execution time for 
the case was 3 hours and 38 minutes using a DEC PDP 11/750 VAX 
computer system. 

The ASE engine was also run using the TDE option (no shocks 
allowed); i.e., the two-dimensional expansion was assumed to be 
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in a state of chemical equilibrium. A complete input data 
listing for the case is presented in Table 7~6. The boundary 
layer plots given in Section 6.8.5 were obtained for this case 
by input of APROF = MOO , NPROF - 1, KDTPLT = 1, KMTPLT = 1 , and 
KTWPLT - 1 in $BLM. The sequence of calculations for TDE is as 
follows : 

1) ODE calculation with the system enthalpy set at the 
propellant tank values, i.e., liquid oxygen and liquid 
hydrogen at their normal boiling points. 

2) ODE calculation to generate the TDE gas tables (see 
Table 7-7 for this output), and the BLM gas tables. 

3) TDE calculation using the TDE gas tables. 

M) BLM calculations using the above ODE, TDE results. A 
new wall geometry is calculated by displacing the wall 
inwards a distance of 6* normal to the real wall. This 
new wall defines the boundary of the invisid core flow. 
BLM calculated that a total of 10592.2 BTU/sec. were 
conducted through the nozzle wall. Of this amount a 
total of 8333.8 BTU/sec. were picked up by the two 

regen cooling circuits, the remainder being lost from 
the system. Since the nozzle mass flow was found by 
TDE to be 47.75 llm/sec, the propellant enthalpy was 
increased by 17-4.5 BTU/lbm. 

5) ODE calculation with the increased propellant enthalpy. 
The expansion ratio of the invisid core flow is 
automatically placed in the ODE output schedule. 

6) ODE calculation to generate the TDE gas tables. 

7) TDE calculation using the above ODE results, including 
the new wall contour. 

8) Output summary table, see Table 7 _ 8. 


With the TDE option the flow field is constructed using a 
left running characteristics procedure, and shock waves from the 
wall are suppressed. Results obtained from the calculations are 
given in the output summary table, Table 7 - 8. These results can 
be compared with those given in Table 7 - 5 for the same engine 
but with full kinetics and shock tracing. The difference in 
predicted specific impulse is 

I - I - 475.6 - 474.1 - 1.5 sec. 

3 P tb e sp fe K 


Computer execution time for this case was 39 minutes using a 
DEC P DP 1 1 /750 VAX computer system. 
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Table 7 - 4 . TDK Input for the ASE OTV Test Engine 
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7,iJ C U S S 1^ 0N_ 0 F_S UMM A R Y OUTPUT 


At the end of each computer run, the TDK 
table of summary output r , Program prints a 

t-,, and TaM ; s v, :t s of this ° utput - «*•« *» 

Table 7-8 the final •, 3 ’ ’ #S ° a " be 3e?r ’ »on, 

». the first item printed is the title 


TDK PERFORMANCE SUMMARY: (title) 


Table th * ,nwt ^ , see 

Next, performance parameters summarizing th 
calculations are printed in th results of the 

a in three columns. The left h 

identifies each item to be printed „ . ' column 

column of results is f n th 30 ltS Units ' The first 

results IS for the first Mdc/fum „ •, 

column of results is r« ► l, elution, and second 

aaulta la for the second MOC/BLM aolution. 

CS T J(TD^ emS l3beled ISP(TI>K ). THRUST(TDK), UDOT(TDK) n > 
CSTAB(TDK), and CF ( TDK ) are defined as: 


Name 

ISP ( TDK ) 
THRUST( TDK) 
WD0T ( TDK ) 

CD 

CSTAR( TDK) 
CF( TDK) 


U n_i t s 

sec 

lbf 

1 bm / sec 
ft/ sec 


s p y 2D 


£ © f _i n i t i o n 

Specific Impulse, I 

Thrust, F 2[) 

Mass Flow, m 

’ 2D 

Flow coefficient. C 

D , 2D 

Characteristic Velocity, c* 
Thrust coefficient, C 

F , 2D 


2D 
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r „ r t and m,„ are obtained by 

The values given 3 ^ 2 ° ln the documentation for HOC 

evaluating the integrals discuss integral is evaluated 

module subroutine CHAR. The mass lo * evaluated 

across the HOC initial ^^hn^l of the azial 

across the initia initial data line to the 

component or wall pressure from 

nozzle end point. The thrust is 

F 2D “ I sp.2D *2D 


The nozzle flow coefficient is calculated as 


wher e 


r « i,./ lim 

L D,2D 2D ID 


* * * 
’ID * P 1D V 1D 

# 


... ft * is the geometric throat area, 
is obtained from ODE. A is tne 8 

r* is calculated as 
The characteristic velocity, C , 


^ 2 D " * sp , 2D F , 2D 

where the thrust coefficient, C ? , is defined by 

# 

S.2D ' F 2D ' P c * 

Again, A*, is the geometric throat area. 

The items labeled DISPiBUiO. PTOPTi BUAg , . - ( B-B 1 . 

ISP ( TC ) , THRUST ( TC ) , and CF(TC) are defined as 

Name ItSiSS Definition 


DISP(BLME) 

sec 

Al sp,BLM 

dfopt( BLME) 

lbf 

af blm for 

DF ( BLME ) 

lbf 

aF blm 


amb 
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Name 

Units 

Definition 

ISP ( TC ) 

sec 

I 

THRUST(TC) 

lbf 

sp , 2D , BLM 

F 

CF( TC ) 


2D , BLM 
C F , 2 D , B LM 


In the above, the thrust loss calculated by the BLM is given 
by the following relation: 


af blm 3 2irr 

e 003 

a e * P e 

U e V« 

- 2tt r 

e 003 

a e * < P e 

’ Lab* 

additional 

items, 

printed 

are 

A I 

sp , BLM 

= 

af blm 7 ra 2D 

I sp,2D,BLM 

3 

( F 2D 

^ A F ) 

BLM ; 

F 

2D, BLM 

3 

F 2D 

- AF 

BLM 

c 

F, 2D, BLM 

3 

f dd. 

BLM 7 P c 




/ 


m 


2D 


# 

A 


Performance parameters summarizing 
MOC/BLM calculation differ from the 
follows : 


the results of the second 
first set printed as 


1 ) 


2 ) 


The TDK and ODE results 
core) run have a modified 
and expansion ratio. 


are for the 


second ( i nv is id 
wall contour, throat ar°a 


is not adiabatic. 


The BLM results are re-calculated using edgP conditions 
fro- the second TDK run. BLM itself is n ot r e-r 'un. a "d 


the values of 6 and 9 are not changed. 

The equations used are the same as given above. 
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8. ERROR DIAGNOSTICS 


8.1 DI_SCUSS_ION_OF_PROGRAM_USAGE 

Error diagnostics* are printed by the program when it has 
either found an input card error or is unable to continue with 
ts computations because it has obtained an impossible result. 
The analysis performed by the computer program is limited by the 
Physical assumptions used in its development and by the 
numerical methods used. Consequently, an understanding of these 
assumptions and of the numerical methods that have been applied 
is necessary in order to correctly run cases using the computer 
program. Although the computer program contains many error 
diagnostics, it is not possible to diagnose all errors. 

Input values given for the sample cases (see Section 7) can 

be used as a guide in preparing data for similar calculations. 

Special care must be taken, however, to avoid errors of the type 
given below: 


8 - 1.1 The computer program will not give valid results if the 
input kinetic reaction rate parameters are unrealistic A 

common mistake is to input an implied third body reaction rat. 
backwards; which gives a very large error. Tables 6-10 and 6-11 
used as guides in preparing reaction rate data. It 

should be remembered that the computer program automatically 

ca culates equilibrium constants from the input JANAF 
thermochemical data. 


Error diagnostics can aiso be given by the computer system 

subroutines. These vary with the ope-ating system ana are not 
discussed here. 
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8 . 1.2 

phases 


Although the 0DK and TDK 
to be present in the flow, 


calculations allow condensed 
no mass transfer between 


phases is allowed. 


8. ,.3 A common mistake In using the computer program Is to 
input inlet and throat geometry parameters that are physically 
impossible when compared with Figure 6-1. 


g . i # 4 A value R WTU > 

inaccuracies which can occur 
9 

of solut ion . 


.5 should be used because of 
as a result of the transonic method 


8 I 5 goo some chemical systems (e.g., H-F) it is possible 
that the two-dimensional throat Mach number will be subsonic as 
a result of the kinetic process. In this case the initial data 
line can be displaced downstream, Increasing the Mach numb , y 
use of the input parameter ALI (see Section 6.6). If 15 
input greater than zero, a symmetric throat is redulred and it 
is necessary that RWTD be set-to the same yalue as RHTU. 


8.1.6 Ah Important consideration In preparing data for all 

but 0DE calculations concerns Input of the nozzle wall. me 
derivative of the -all cohtour has an Important effect on the 
nozzle flow field and it Is required that -all derivatives vary 
slowly with respect to the local characteristic mesh spacing, 
in this respect the TDK program is no different than any other 
method of characteristics calculation. Usually 
satisfactory method of specifying a nozzle wall contour is 
through the use of the spline fit contour option (IWALL-1). Too 
many points should not be input when using this option since a 
bad derivative could result. Never place points close together. 
Although the initial section of the contour is assumed to be a 
circular arc, a small value of THETA can be used if necessary. 
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In case of difficulty with the method of 
characteristics calculations, a useful procedure is to plot the 
(r,x) coordinates of mesh points in the region of difficulty. A 
Plot of this type will frequently locate the cause of the 
problem. For this purpose it Is necessary to print each 
calculated mesh point (i.e., N1-1 and N2-1). 

8.2 LIS TING O F E R R 0 R _D I A 0 N 0 S T I C S 

Errors printed by the program are listed in Table 8-1 in 
alphabetical order. The subroutine printing the error message 
is listed in Table 8-1 in parenthesis at the right of each 
message. Table 8-2 and the write-up for the subroutine printing 
the error message should be referred to when the message is 
encountered . 

Suggested corrective action for some of the errors listed in 
Table 8-1 is given in Table 8-2. 

Error diagnostics consist of two types: fatal errors and 
nonfatal errors. A fatal error will terminate the case being 
executed and the program will proceed to the next case. The 
case may not be immediately terminated. For example, in 
processing input data cards the program will attempt to find as 
many input card errors as possible before terminating the case. 

A nonfatal error serves only as a warning and the program will 
continue the case. If the error diagnostic is of the nonfatal 
type the symbol (NF) appears in the explanation. 
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TABLE 8-1: 


LIST OF ERROR DIAGNOSTICS 


ORIGINAL PAGE S3 
OF POOR QUALITY 


CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FIND POINT 
CANNOT FINO POINT 


3 PHASES OF A CONDENSED SPECIES ARE OUT OF OROER (EOLBRM) 

35 ITERATIONS DID NOT SATISFY CONVERGENCE REQUIREMENTS FOR THE POINT <EQLBRM) nnnnfMV ; mo di I ASSIGNED CONDITIONS (0UT1) 

ADDITIONAL PRODUCTS UHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN .0000005 FOR ALL ASSIG 

ALL REACTION RATE RATIOS INPUT AS 1.0 (PACK) /oPAnAT ^ 

BLM MODULE COULD NOT FIND DATA FROM OOE MOOULE •• WILL ASSUME DATA TO BE READ IN SBLM (READAT) fROCKET) 

CALCULATIONS WERE STOPPED BECAUSE NEXT POINT IS MORE THAN 50 DEG BELOW TEMP RANGE OF A CONDENSED SPECIES ( ) 

A FOR 2ND RRS CALCULATION (SHCKA) 

4 FOR LRS CALCULATION (CNTR13) 

4 FOR RRS CALCULATION (CNTR12) 

4 FOR RRS CALCULATION (CNTR14) 

4 FOR RRS CALCULATION (CNTR22) 

4 FOR RRS CALCULATION (CNTR24) 

5 FOR 2ND RRS (CNTR22) 

5 FOR 2ND RRS (SHCKA) 

CANNOT FIND THETA FOR WALL OPTION 5 • RUN ABORTED IN ODKINP (OOKINP) nnnnnnnnr nn , u ., u1ri , 

CANT FIND MATCHING PHASE FOR TMELT= O.OOOOOOOOE+OO CURRENT TEMP= 0 . OOOOOOOOE+OO (MAIN1D) 

COMPUTED HS = O.OOOOOOE+OO AT J = 0 IS OUT OF GIVEN RANGE. (COEF1 ) 

CONDENSED REACTANTS NOT PERMITTED IN DETN OR SHOCK PROBLEMS (ODES) 

CONSERVATION EONS WERE NOT SATISFIED IN 8 ITERATIONS (DETON) „. ucnuir T »ai pc mPTH i 

COULD NOT LOCATE PRES O.OOOOOOE+OO FOR ZONE 0 AND POINT 0 IN OOK GENERATED TRANSONIC TABLES (GETIL) 

DATA FROM MODULE OUT OF ORDER IN MOOULE BLM. CARD 0 HAS SEQ. NO. 0 (READAT) 

DERIVATIVE MATRIX SINGULAR (EOLBRM) 

DIO NOT CONVERGE FOR AREA RATIO = 0.00000 (ROCKET) 

DID NOT CONVERGE FOR U1= 0.00 ANSWERS PROBABLY NOT RELIABLE SOLUTION MAY NOT EXIST (SHCK) 

DID NOT CONVERGE ON ELECTRON BALANCE (EQLBRM) 

DIMENSIONS IN/SPECIES/TOO SMALL TO CONSIDER (SEARCH) 

ENO OF FILE ENCOUNTERED WHILE READING PROFILE PLOT FILE IN BLPLTS - RUN CONTINUES (BLPLTS) 

ENO OF LRC CONSTRUCTION FROM CNTR41 (CNTR41 ) 

END OF NOZZLE DETECTED (CNTR91 ) 

END OF RRC CONSTRUCTION FROM CNTR21 (CNTR31 ) 

ENTIRE TRANSONIC TABLE FILE HAS BEEN READ (GETIL) 

1rRM T - R THE H WALL M TEMPERATURE/HEAT FLUX TABLE MUST CONTAIN AT LEAST 4 POINTS WHEN CUBIC INTERPOLATION IS USEO (INPUTB) 

ERROR DETECTED DURING INPUT PROCESSING (REAXIN) 

ERROR DETECTED DURING TRANSONIC CALC (TRAN) 

ERROR DURING LOW T THERMO EVAL, T= 0.0000000 E+00 (SKPB1 ) 

ERROR DURING LOW T THERMO EVAL, T= 0.0000000 E+00 (THERM) 

ERROR DURING LOU T THERMO EVAL, T* O.OOOOOOOOE+OO (CPHS) 

ERROR FOR SKEWED PARABOLA OPTION - STOP (SKPB1 ) 

ERROR FROM BANOI- (BAND I) 

ERROR IN ABOVE CARD. CONTENTS IGNORED. (OOES) 

ERROR IN ATSHCK (ATSHCK) 

ERROR IN BLW WHILE REAOING LINKAGE DATA (BLTK) 

ERROR IN BLW WHILE READING LINKAGE DATA (BLW) 

ERROR IN BLW, NWS EXCEEDS 50 (BLW) 

ERROR IN CNTR21, CROSSING OF RRC SHOULD HAVE 8EEN TERMINATED IN CNTRLl (CNTR21 ) 

ERROR IN CNTR21, CROSSING OF RRC SHOULD HAVE BEEN TERMINATED IN CNTRLl (CNTR31 ) 

ERROR IN CNTR91- END OF RRC AND NO SHOCK OR END OF NOZZLE DETECTED (NTR91 ) 

ERROR IN CNTRLl, INSERTION TABLE EXCEEDS MAXIMUM (CNTRLl) 

ERROR IN CNTRLl, INSERTION TABLE EXCEEDS MAXIMUM (CNTRL2) 

ERROR IN CNTRLl, 

ERROR IN CNTRLl, 

ERROR IN CNTRLl, 

ERROR IN CNTRLl, 

ERROR IN FINOT (FINOT) 

ERROR IN GAUELM. UNABLE TO FINO PIVOT FOR LINE 
ERROR IN GETPT, ID= 0 (GETPT) 

ERROR IN GETPT- POINT NOT PREVIOUSLY WRITTEN (GETPT) 

ERROR IN IVPL, NP EXCEEDS NPT (IVPL) 

ERROR IN OOWALL, IWALL= 0 RUN ABORTED (OOWALL) 

ERROR IN ORDER OF CAROS FOR (TTAPE) 

ERROR IN RBL WHILE REACNG FILE 0 (RBL ) 

ERROR IN REACTANT CARD! (OOES) 


I p= 

0 

EXCEEDS 

MAXIMUM 2 

0 

(CNTR21 ) 

IP= 

0 

EXCEEDS 

MAX I MUM = 

0 

(CNTR31) 

tp= 

0 

EXCEEDS 

MAXIMUM 2 

0 

(CNTRLl) 

IP= 

0 

EXCEEDS 

MAXIMUM 2 

0 

(CNTRL2) 


0 EPSI LON=0. 00E+00 (GAUELM) 



TABLE 8-1: CONTINUED 


ORIGINAL PAGE 13 
OF POOR QUALITY 


ERROR [N SAVPT, 10= 0 (SAVPT) 

ERROR IN SHCKA, ITERATION FOR REFLECTED SHOCK ANGLE FAILED, DIT3A= 0.0000 DLT3B= 

ERROR (N SHCKW, ITERATION FOR REFLECTED SHOCK ANGLE FAILED, DLT3A= 0.0000 DLT3B= 

ERROR IN THE CALCULATION OF 2ND SHOCK, X3 = O.OOOOOE+OO X4 = O.OOOOOE+OO (CNTR16) 

ERROR MESSAGE FROM BLTABL - THE REQUESTED TABLE SIZE OF 0 EXCEEDED THE INTERNAL DIMENSIONS OF 
ERROR OCCURS WHILE POSITIONING BLM TAPE FOR RESTART (READAT) 

ERROR TYPE= 0 IN CNTR12 (CNTR12) 

IN CNTR13 (CNTR13) 


0.0000 DEG (SHCKA) 
0.0000 DEG (SHCKW) 


0 (BLTABL) 


ERROR TYPE= 
ERROR ( ) 


ERROR ( 2) OR 
ERROR ( 6) 
ERROR ( 7) 
ERROR ( 8) 


( ERROR Z) 
4) 


THE PROGRAM IS ATTEMPTING TO INSERT AN EXCESSIVE NUMBER OF FLOWF I ELD POINTS. (ERRORZ) 
THE LRC INSERTION TABLE HAS OVERFLOWED. (ERRORZ) 

THE MAXIMUM NO. OF POINTS FOR A LRC HAS BEEN EXCEEDED. (ERRORZ) 

THE PROGRAM IS ATTEMPTING TO LOCATE A WALL POINT UPSTREAM 
OF THE 1ST POINT IN THE WALL TABLE. (ERRORZ) 

THE PROGRAM IS UNABLE TO LOCATE POINT 1 IN SUBROUTINE INPT (ERRORZ) 

THE PROGRAM IS UNABLE TO LOCATE POINT 1 IN SUBROUTINE DSPT (ERRORZ) 

AN IMPROPER INITIAL LINE POINT IS SOUGHT. (ERRORZ) 

THE CALCULATION FOR THE LAST POINT EXCEEDED MAXIMUM ITERATIONS (ERRORZ) 

NO MORE THAN 275 POINTS MAY BE INPUT ON INITIAL LINE (ERRORZ) 

SUM OF INPUT SPECIES CONCENTRATIONS FOR ABOVE POINTS NOT ONE. (ERRORZ) 

WALL TABLE VIOLATES INSERTION ANGLE CRITERION (ERRORZ) 

INCOMPLETE TDK INITIAL LINE HAS BEEN GENERATED (ERRORZ) 

EXIT PLANE OPTION REQUIRES GREATER WALL EXTENSION (CNTRL) 

EXIT PLANE OPTION REQUIRES LARGER NCHMXE , NPTMXE (CNTRL) 

FAILED TO CONVERGE IN IVPL (IVPL) 

FATAL ERROR ENCOUNTERED DURING REACTION PROCESSING DUE TO ABOVE CARD (REAXIN) 

FATAL ERROR ENCOUNTERED WHILE PROCESSING THIRD BOOY REACTION RATE RATIOS - ERROR ON ABOVE CARD (REAXIN) 

FIND* VAR OUTSIDE TABLE (FIND) 

FROZEN DID NOT CONVERGE IN 8 ITERATIONS (FROZEN) 


ERROR ( 9) OR (10) 
ERROR(II) OR (12) 
ERROR(50) 

ERROR( 13) 

ERROR( 14) 

ERROR( 15) 

ERROR( 16) 

ERROR (17) 


ILL-CONDITIONED MATRIX IN ROUTINE SKPB ERROR * 0.00000E+00 -STOP- (SKPB1) 

INERT NOT IN MASTER SPECIES TABLE (SEARCH) 

INERT SPECIES (SEARCH) 

INERTS FOUND IN TDK PROBLM , INERTS NOT SPECIFIED, CANNOT USE RELATIVE 
SELECTION CRITERION FOR TDK CASE (SELECT) 

INFINITELY WEAK SHOCK BT1 Ml M1*AB$($IN(BT1 ))* O.OOOOOOE+OO O.OOOOOOE+OO 0.000000E+00 (SHOCK) 

INLET GEOMETRY INCOMPATIBLE WITH INITIAL CONDITIONS (PRES) 

INTERNAL SEQ NUM (REAXIN) 

ITERATIONS EXCEEDED ITMAX (BLSEG) 

KIN EXPN CODE DIMENSIONED FOR MAX. OF 40 SPECIES, CURRENT CASE USES (SELECT) 

LOW T THERMO EXTENSION AT T= DEG-K (THERM) 

LOW TEMPERATURE IMPLIES CONDENSED SPECIES SHOULD HAVE BEEN INCLUDED ON AN INSERT CARD, RESTART (EQLBRM) 
LRS PT IS OUTSIDE THE NOZZLE (CNTR13) 

MACH NUM8ER CONVERGENCE FAILED, ZONE= 0 CONV CRIT = O.OOE+OO CONV OBTAINED = 0.00E+00 (PRINT) 

MACH NUMBER CONVERGENCE FAILED, ZONE= 0 CONV CRIT = O.OOE+OO CONV OBTAINED = 0.00E+00 (PRINTS) 

MASS FRACTION SUM NOT 1. (OUT 1 ) 

MASS OF MOLE FRACTIONS NOT SPECIFIED MASS FRACTIONS ASSUMED (REAXIN) 

MAXIMUM ITERATION REACHED- RUN IS TERMINATED (PRINTS) 

MORE THAN 12 CHARACTERS SPECIFIED FOR AN INERT SPECIES NAME (REAXIN) 

NE DID NOT CONVERGE (PRES) 

NO SODE VALUE GIVEN FOR OF f ECRAT , FA ,OR FPCT (GOES) 

NO ECRAT SPECIFIED FOR OOK START-RUN ABORTED (OOES) 

NO LINKAGF DATA FOUND, EXPECT MANUAL INPUT (READAT) 

NO match OR SPECIES NAME (REAXIN) 

NO match OUND FOR SPECIES NAME (STORNU) 

NON NUMERIC ENCOUNTERED IN ECNV WHILE DECODING... (ECNV) 

NONCONVERGENCE IN ENCALC, T1 T11= 0.000000QE+00 O.OOOOOOOE+OQ (ENCALC) 

NONCONVERGENCE IN TSCALC, T P S S0= 0. 0000000E+00 O.OOOOOOOE+OO 0. OOOOOOOE+OO 0 .0000000E+00 (TSCALC) 

NOT ENOUGH POINTS FOR SECOND SPLINE (WALL) 

NOZZLE PWZS COORDINATES NOT MONOTONIC INCREASING AT PT 0 (PACK) 

NP EXCEEDED NPT -- PROGRAM TERMINATED (BLMAIN) 

NUMBER OF SHOCK REFLECTIONS EXCEEDS MAXIMUM= 0 (CNTR91 ) 

NUMBER OF SPECIES TOO LARGE FOR TABLES, MUST REDIMENSION (REAXIN) 

NUMBER OF TEMP VALUES OUTSIDE RANGE (LTCPHS) 
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TABLE 8-1: CONTINUED 


POOR CONVERGENCE - STOP - (SKPB1) 

PRESSURE = O.OOOOOOOE+OO IS OUT OF RANGE FOR STREAMLINE = 0 (FINOT) 

PROG NOT DIMENSIONED FOR 0 POINTS ANO 0 ZONES (XPIl) 

PTB( 0)= O.OOOOOOOE+OO, DID NOT CONVERGE (PRES) 

REACTANT 0 IS NOT IN THERMO DATA (HCALC) 

REACTANT TEMPERATURE OUT OF RANGE OF THERMO DATA (HCALC) 

REACTION 0 HAS MASS IMBALANCE OF O.OOOOOOOOE+OO (PACK) 

REACTION CARDS (REAXIN) 

REACTION EXTENDS BEYOND CARD COL 80 (REAXIN) 

REGULAR REFLECTION IS NOT POSSIBLE (CNTR12) 

REGULAR REFLECTION IS NOT POSSIBLE (CNTR14) 

REGULAR REFLECTION IS NOT POSSIBLE (CNTR22) 

REGULAR REFLECTION IS NOT POSSIBLE (CNTR24) 

REGULAR REFLECTION NOT POSSIBLE (CNTR12) 

REGULAR REFLECTION NOT POSSIBLE (CNTR22) 

REGULAR REFLECTION NOT POSSIBLE (SHCKA) 

REO AREA RATIO 0 O.OOOOOOOOE+OO DELETED (OOKINP) 

RESTART (EOLBRM) 

RIGHT RUNNING SHOCK DETECTED (CNTR31 ) 

RIGHT RUNNING SHOCK DETECTED (CNTR41 ) 

RRS PT IS OUTSIDE THE NOZZLE (CNTR12) 

RRS PT IS OUTSIDE THE NOZZLE (CNTR14) 

RRS PT IS OUTSIDE THE NOZZLE (CNTR22) 

RRS PT IS OUTSIDE THE NOZZLE (CNTR24) 

SHOCK DETECTED ON RRC FROM INITIAL LINE (CNTR11) 

SHOCK DETECTED ON RRC FROM INITIAL LINE (CNTR21 ) 

SHOCK DETECTED ON RRC FROM INITIAL LINE (CNTR31 ) 

SHOCK-SHOCK INTERSECTION DETECTED- RUN ABORTED (CNTR22) 

SHOCK-SHOCK INTERSECTION OETECTED- RUN ABORTED (SHCKA) 

SHOCKED GAS (2)- - INCIDENT- - EQUILIBRIUM (SHCK) 

SHOCKED GAS (2)- - INCIDENT- -FROZEN (SHCK) 

SHOCKED GAS (5)- -REFLECTED- -EQUILIBRIUM (SHCK) 

SHOCKED GAS (5)- -REFLECTED- - FROZEN (SHCK) 

SINGULAR MATRIX (EOLBRM) 

SINGULARITY, K,A(K,K) 0 O.OOOOOOOOE+OO (LESK) 

SINGULARITY, N,A(N,N) 0 O.OOOOOOOOE+OO (LESK) 

SPECIES REQUIRES ELEMENT THIS ELEMENT IS NOT IN ELEMENT TABLE (PACK) 

SPECIES NO. 0 NOT CONTAINED IN MASTER EQUILIBRIUM SPECIES TABLE (SEARCH) 

SPECIES NOT ON THERMO TAPE (PACK) 

SUM OF INPUT MOLE OR MASS FRACTIONS NOT ONE. THE SUM IS * O.OOOOOOOOE+OO NO. SPECIES = 0 (OOKINP) 

TEMPERATURE IS OUT OF RANGE OF THE THERMO DATA (SHCK) 

THE FOLLOWING CARD WAS IGNORED (REAXIN) 

THE REPEAT OPTION SHOULD NOT BE USED WITH A POTENTIAL WALL (PROBLM) 

THE SUM OF THE STOICHIOMETRIC COEFFICIENTS FOR THE REACTANTS OR/AND PROOUTS EXCEEDS 10 (PREAX) 

THE TEMPERATURE 3 IS OUT OF RANGE FOR POINT (EQLBRM) 

THIRD BODY REAX RATE RATIOS ENCOUNTERED BEFORE LAST REAX CARD (REAXIN) 

TRY REMOVING CONOENSED SPECIES (EQLBRM) 

UNEXPECTED END DURING INERTS PROCESSING LAST CARD ENCOUNTERED BEFORE END SPECIFICATION (REAXIN) 

WALL TABLE ERROR ON 2ND SPLINE ... (R,X)= 0.00000E+00 O.OOOOOE+OO (WALL) 

WALL TABLE ERROR... (R,X)= O.OOOOOE+OO 0.00000E+00 (WALL) 

WALL TABLE REQUIRES TOO MANY PTS ON 2ND SPLINE (WALL) 

WALL TABLE REQUIRES TOO MANY PTS. (WALL) 

WARNING CARD SEQUENCE ERRORS (LTCPHS) 

WARNING IN INTEXT, Z1 ZEXIT Z2= O.OOOOOOOE+OO O.OOOOOOOE+OO O.OOOOOOOE+OO (INTEXT) 

WARNING IN RBL, XFIRST = O.OOOOOOOE+OO XI = O.OOOOOOOE+OO (RBL) 

WARNING IN RBL, XLAST = O.OOOOOOOE+OO XI = O.OOOOOOOE+OO (RBL) 

WARNING, T8L TABLES EXCEED THEIR DIMENSIONS IN OUT1 (0UT1) 

WARNING, UNABLE TO POSITION 8LM TAPE FOR RESTART (READAT) 

WEIGHT FLOW DID NOT CONVERGE (CHAR) 

XTEST=O.000000E+00 ERROR IN TCALC, RUN ABORTED (TCALC) 

Z OUTSIDE NOZZLE WALL TABLE, Z AND JNOZ ARE O.OOOOOOOOE+OO 0 (FLU) 

Z OUTSIDE PRESSURE TABLE (FLU) 
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TABLE 8-2: ERROR MESSAGES, POSSIBLE CORRECTIVE ACTION 
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REACTION RATE DATA 


, rates for determining loss in 

Reactions and reaction rates 

performance Ou, to chemical nineties are presentee in Reference 

which is CPI* 2 4 6 , the J ANN A F Rocket Engine performance 

_ . , c 9 h M pd Reaction Rate Data.) 

Evaluation Manual (see Section . . ^ 

The reactions ant reaction rates presented in CPI 24„ were 
revised hy Kushlda in Reference 2 in 19T6. Until the present 
time, no further revisions have been made. 


A literature review through June 1984 has now been carried 
out 0, SEA, Inc. The review includes the systems 
Kushlda i.e. those containing the elements CHNO and 
result f this study shows almost no change In the CHNO system 
and minor changes in the FHN system. A revised ^tainty 
factor u is given for each rate coefficient such that 
and k/U provide prohahle approximate upper and lower founds 
respectively to k for temperatures within the range 

Tables 1 and 2 give reactions and rates for the CHNO system, 
and correspond to Tables I and II of Reference 2 except that the 
species HO, and N.,0 have been deleted. These species are not 
considered important for engine performance prediction. 
Although there are no changes in the rate data, new 
regarding some of the reactions have been obtained 
suggest a change in the form of the rate expression. 


For certain reactions involving the OH radical, 
particular the reactions, 


OH + 

H 2 - 

h 2 ° 

+ H 

(i ) 

OH + 

OH = 

h 2 ° 

+ 0 

( 2 ) 

o 

o 

+ 

OH = 

CVI 

o 

o 

+ H 

(3) 



The rate data do not conform to an Arrhenius plot 3 . For 
reaction ( 3 ) , the experimental results are now numerous and 
precise enough to confirm the deviation from the Arrhenius form 
at low and high temperature. The form that fits the data 
adequately over the temperature range 250-2500 °K is, 

lo g 10 k = 10.83 + 3-94 x 10“ 4 T. 

The present form of the rate data, 

k = 1 • 5 x 10 7 T 1 * 3 exp (765. /RT). 

is in close agreement with the above expression up to 2000 °k. 

In addition, it is necessary for use in the existing computer 
programs . 

Tables 3 and H give reactions and rates for the FHN system, 
and correspond to Tables III and IV of Reference 2. 

For the two reactions, 

F + F + m = F 2 + m 

H + F + M = HF + M 

the rate coefficient expressions are completely different than 
those listed in Table III of Reference 2. These new expressions 
give a much higher rate at low temperature, but about the same 
value in the high temperature range. 


As, in Reference 2, the tables given here define the rates in 
the form accepted by the TDK computer program, i.e, the 
constants A, N, and B are given for the expression 


k 


AT 


-N 


" ( 1000B/RT ) . 

e ;m units of cc 


K , mole, sec. 


The reference for each reaction is listed in the tables, 
e.g. BAULCH 72 is Reference 7. The uncertainty estimate is also 
given; e.g. 30 U is an uncertainty factor of 30. 
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TABLE 1. Reaction Rate Data for the CHON System: 


For Chemical Reactions between species, CO, C0 2> H, H ? , H^, 

N, NO, N , 0, OH, and 0_ in initial equilibrium expanding 
d d V 

through an adiabatic nozzle. 

k - A T _N exp (-1000B/RT) ; in units of cc,°K, mole, sec. 


REACTIONS 


H + H » H 2 


9 

A 

- 

6.4E17, 

N 

at 

1 .0, 

B 

- 

0.0 , 

M = AR, 

BAULCH 

72 

(A) 

30U 

H + OH = H 2 0 


1 

A 

= 

8.4E21 , 

N 

= 

2.0, 

B 

- 

0.0 , 

M - AR f 

BAULCH 

72 

(A) 

10U 

o + o » o 2 


9 

A 

a 

1 - 9 El 3 , 

N 

= 

0.0, 

B 

-■ 

-1.79 , 

M - AR, 

BAULCH 

76 

(A) 

10U 

N + 0 = NO 


f 

A 

- 

6 . 4E1 6 , 

N 

- 

0.5, 

B 

S3 

0.0 , 

M = N2 , 

BAULCH 

73 

(C) 

10U 

N + N - N 2 


9 

A 

m 

3.0E1 4, 

N 

ss 

0.0, 

B 

3 

-.99 , 

M = N2 , 

BAULCH 

73 

(C) 

1 ou 

CO + 0 = co 2 


9 

A 

3 

1 .0E1 4, 

N 

- 

0.0, 

B 

m 

0.0 , 

M - AR, 

BAULCH 

76 

(B) 

30U 

0 + H - OH 


9 

A 

m 

3.62E18 

* N 

- 

1 .0, 

B 

- 

0.0. , 

M * AR, 

JENSEN 

78 

(B) 

30U 

END TBR REAX 

















0 2 + H > 0 + 

OH 

t 

A 

at 

2.2E1 4, 

N 

m 

0.0, 

B 

K 

1 6 . 8 , 

BAULCH 

72 


(A) 

1 . 5U 

H 2 + 0 - H + 

OH 

9 

A 

= 

1 . 8 E 1 0 , 

N 

- 

-1. . 

B 


8.9 , 

BAULCH 

72 


(A) 

1 .5U 

H 2 + OH = H 2 0 

+ 

H, 

A 

= 

2.2E1 3, 

N 


0.0, 

B 

= 

5.15, 

BAULCH 

72 


(A) 

2 U 

OH + OH = H 2 0 

+ 

0, 

A 

3 

6.3E12, 

N 

- 

0.0, 

B 

= 

1 .0, 

BAULCH 

72 


(A) 

3 U 

CO + OH - C0 2 

+ 

H, 

A 

IS 

1 . 5E7 , 

N 

-• 

-1 .3, 

B 

3S * 

-.765, 

BAULCH 

74 


(A) 

3 U 

N 2 + 0 = NO + 

N 

* 

A 

- 

7.6E1 3, 

N 

■ 

0.0, 

B 

= 

75.5, 

BAULCH 

73 


(C) 

3 u 

0 2 + N = NO + 

0 

9 

A 

=* 

6.4E9 , 

N 

- 

-1 .0, 

B 

S 

6.25, 

BAULCH 

73 


(C) 

2 U 

CO + o » co 2 


9 

A 

m 

2.5E6 , 

N 

- 

0.0, 

B 

a 

3.18, 

BAULCH 

76 


(B) 

2 U 

CO + 0 - CO 

+ ( 

V 

A 

- 

1 . 7 El 3 , 

N 

- 

0.0, 

B 

3 

52.7, 

BAULCH 

76 


(B) 

3 U 


LAST REAX 



TABLE 2 

. Third 

Body Recombination 

Efficiency Ratio for 

CHON S v s t pm • 



(as recommended by 

Kushida, Reference 

2) 



Species 

H + H 

H + OH 

0 + 

0 N + 0 

N + N 

CO + o 

0 + H 

AR 

1. 

1. 

i. 

.8 

1. 

1. 

1. 

CO 

1.5 

3. 

4. 

1. 

1. 

1. 

n. 

C °2 

6.4 

4. 

8. 

3. 

2 . 

5. 

5. 

H 

25. 

12.5 

12.5 

10. 

10. 

1 . 

12.5 

H 2 

4. 

5. 

5. 

2. 

2. 

1 . 

5. 

H 2° 

10. 

17. 

5. 

7. 

3. 

1 . 

5. 

N 

1 . 

1 . 

10. 

10. 

10. 

1 . 

1 . 

NO 

1.5 

3. 

4. 

1 . 

1 . 

1 * 

4. 

N 2 

1 .5 

3. 

4. 

1 . 

1 . 

2. 

4. 

0 

25. 

12.5 

12.5 

10. 

10. 

1 . 

12.5 

OH 

25. 

12.5 

12.5 

10. 

10. 

1 . 

12.5 

°2 

1 .5 

6. 

1 1 . 

1 . 

1 . 

25. 

5. 
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TABLE 3- 


Rec ommended Reaction Data (HFN System ): For chemcial 
reactions between species F, F T, H, HF, H 2> N, and Np 
in initial equilibrium expand through an adiabatic 

nozzle . 


k = AT 


-N g ( 1 000B/RT ) _ in units 0 f cc,°K, mole, sec. 


REACTIONS: 
H + H - 


H 2 , A - 6.4E17, N - 1 .0, B - 0, 


BAULCH 72, M- AR (A) 30 U 


F+F- F 2 , A - 3.25E8, N -1 .0, B-6.38, BAULCH 81 , M = AR(A)10U 


H + F 
N + N 


HF , A 


7.5E12, N - 0.0, B —35.13. BAULCH 81, M = AR (A) 30 U 
N 2 .A-3.0E14, N - 0.0, B = -.99, BAULCH 73, M=N 2 (A)10U 


END TBR REAX 


+ H 2 * HF + H , 

A = 9.2E13, 

N =* 0 . 0 B = 1 . 08 , 

FOON 75 , 

(A) 

30 U 

+ F„ =* HF + F , 

A - 8.8E13, 

N - 0.0, B = 2.40, 

BAULCH 81, 

(A) 

10 U 


LAST REAX 

TABLE 4 . Third Body Reaction Rate Ratios (H FN System) 
(as recommended by Kushida, Reference 2) 


REACTION 


H + 1 

SPECIES 

H 2> 

4. 

SPECIES 

F 2* 

1 . 

SPECIES 

HF, 

2. 

SPECIES 

n 2 . 

1 .5 

SPECIES 

N , 

1 . 

SPECIES 

F , 

4. 

SPECIES 

H , 

25. 


f+f H+F n+n 

1 . 8 . 2 . 

2.4 1 . 1 • 

1 . 2 . 1 . 

1 . 2.8 1 . 

1 . 1 . 10 . 

2.4 4. 1. 

1 . 20 . 


10 



Other Elemental Systems 


_::rr:: n :r si “ en to ^ „ - „ f 

to indioate iiquid — — — « 

hI Possible Interest. This approach leads to 11 

combinations of the elements c, c« F H , a „ 

listed a l nhah «. • » » H, N, and 0, which are 

listed alphabetically in Table 6. Sets 8 „ 7 - , n 

zr ? 67 - — ~ .» :: 

— “u: :::: rr\ r 

— such ;: e ‘;J; s 

The additL a ^ '' ea ° tl ° n3 ^ “" l ™‘ *»«• systems. 

species required are: c JL , C2 CiF Hr? 

— tional reactions reared are presents £ S"'. 7 ^ 

measured val ^ 131)16 7 ^ e3tI “ ates Pother than 

— dered primary r6a ° tl °" *" ^ 7 — - 


Tabled r p o a r tl0n U36d ‘ " Ref ™ 1 »™ indicated In 

ie '• For example, the fir^f 

lrst three reactions in Tahio 7 ^ 
e reactions numbered 13 12 and 1 1 e 

and 11 in Reference 1. 

Good measured data are now available for the C 2 . + ro 

Cl a „ . „ c , / M rea ° n rate f ° r the re »otlon „ a 

M 13 °btained from the data for t-hp 

r f T ti0n ^ the e ^^ium constant. The thirYTd # 

ef f i c i enc i p <* h u e tnird body 

cienci.es for the reactions listed in Tpm , 

Table 8 For t- h Table 7 are given in 

«• For the reaction C 2 + C 2 + m = C2 * M 

an efficiency ratio of about 5 ia 2 = C£ 2 

experiments. A value of / neported fr„„A S etsof 

efficiencies because of a 1 ac k 'of ’dat ^ ^ tMrd 6 ° dy 

Measured data was found for reactions 29 and 31 of 
1 . Reaction 30 of Reference 1, i. e . Keference 

H 2 + CZ 2 = HCl + HC 2 
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ORIGINAL PAGE i3 

OF POOR QUALITY 


. : . i 'ii . i/ ^ t propellants 

Table 5 . Oxidizers and Fueb J or ■■ ’ U ... u /r , o 
Contain! rip " euent-, 


Oxidizers M n 

Containing Elements Cl, F. H - N ’ . 
For 1 mula , Name 

C if , Chlorine Trifluonde 
C10 ; F , Perchloryl Flouride 

J 

F , F lourine 
HNO^, Nitric Acid 


N 


^0^, Nitrogen Tetroxide 
0 2 , Oxygen 

OF^* Oxygen Difluoride 


Contain i ru 

Fuels 
r Elements 

Formu la , 

Name 

CH U 

Methane 

C ,H,, 

a i ■ e t y lene 

<_ c. 

C A . 

Kthy lene 

C 2 H 6 

Ethane 

c 3 h 8 , 

Propane 


H , N 


C 7 H 16 

, Heptane 

(c H 2 ) n 

, RP-1 or JP- 4 

ch 6 n 2 

, Monomethyl - 
Hydrazine 

C 2 H 8 N 2 

Unsymmetrical 
Dimethyl - 
Hydrazine (UDMH) 

H 2 

, Hydrogen 

nh 3 

, Ammonia 

n 2 h u 

Hydrazine 
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Table fi . 


5 1 erne r: la 
Cornb i na l ; 


ORIGINAL PAGE Is 
OF POOR QUALITY 


- o m p o : : t ions 
•’ns U : ; f;- 1 1 ir 


r ',. 

■jui d 


o 


l‘ K F ‘ 


f'/Fue 1 
^n^ines 




was deleted as unimportant. 

37, 38, 39, MO, 52, and 53 

taken from Reference 1. 


Reactions 

with their 


1 1 , 32, 33 , 3*». 35, 36 , 

estimated rates, were 


fnr the reactions 32, 
mo « nattered data reported for tne 
There are some scan 

33, and 3 4, i • e • 


HC l 
CH 3 

CH 


+ 

+ 


F 

F 


Cl 

Cl 


HF 

C2,F 

C £ F 


r in of the estimated values. 
Th ese data are within a factor of 10 of 

■„ other data was found for these reactions. 


Tuo reactions were added to the s,st„ that 

1 hut are believed to be important 
in Reference 1, but ar 

a s and 6). Measured data 
see References 4, 5, 

those reactions, which are. 


did not appear 
(for example 
available for 


and 


Cl . OH - HCl * o 
HC l * OH • H 2 0 ♦ Cl 
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TABLE 7. 


Addit lo n a l Chemical Reactions of Importance in 

tv. ( . v h 14 KI r> i_ 


k > flT _ N (-1000B/RT) . 

’ in units of cc, °K,mole,sec. 

REACTIONS 

Cl + Cl - Cl 2> A = 

2.23E14 , 

N=0 , B=- 1 .81 , M 

= AR 1 3/BAULCH 81 1 OU 

H + Cl = HC 1 , A = 

2.6E13 , 

N -0 , B=-1 9.9, M 

* AR 1 2/BAULCH 81 5(J 

Cl + F = C 1 F , A = 

3- El 6 , 

N=.5 ,B= 0, M 

“ AVE 1 1 /CPIA246 25U 

END TBR REAX 

Cl 2 + H - HC1 + Cl, 

A= 8.6E13 

. N=0 , B = 1 .2 

, 29/BAlJLCH 81 1 0U 

Cl + H 2 = HC 1 + H , 

A’ 1 - ^5E1 3, N=0 , B =• 4 . i| 

, 31/BAULCH 81 1 OU 

HC 1 + F = HF + Cl, 

A= 1 . 9E1 2 

, N=- . 68 , B = .6 

, 32/CPIA246, 25U 

Cl 2 + F “ Cl + C1F , A= 6.2E12 

i N--. 68 , B = .5 

. 33/CPIA246, 25U 

Cl + F 2 = F + C1F, 

. A= 7.6E12, 

N— . 68 , B= .3 

. 34/CPIA246, 251) 

C1F+ H - HF + Cl, 

A= 1 .8E1 2, 

N=-.58, B= 3.2 

, 35/CPIA246, 25U 

C1F+ H = HC1 + F , 

A- 5.6E12, 

N=-. 68 , B= 1 .9 

, 36/CPIA246, 25U 

C 1 F+ H 2 = HC 1 + HF, 

A= 1 . 8E1 0 , 

N-- .5, B=46.34 

, 37/CPIA246 1000U 

F^ + HC 1 = HF + C1F, 

A= 1 . 8 El 0 , 

N=- .5, B=39. i»3 

, 38/CPIA246 10001) 

C1F+ HC 1= HF + Cl 

2 f 

A= 1 . 8 E 1 0 , 

N=- .5, B-46.03 

. 39/CPIA246 1 OOOU 

F 2 + C1 2 = C1F + C1F, 

A= 1 .8E1 0, 

N=- .5, B=26 .76 

, 40/CPIA246 1 OOOU 

OH + F * HF +0 

A» 2.9E12, 

N- - . 68 , B= .2 

, 52/CPIA246 25U 

» 2 0 + F = HF + OH 

A= 1 . 4E1 0, 

N=- . 68 , B= .6 

» 53/CPIA246 25U 

Cl +OH = HC 1 + 0 , 

A= 5.9E12, 

N = 0 , B= 5.72 

, BAULCH 81 1 OU 

HC1+OH = H o 0+Cl 

A= 2.25E12, 

N- 0 , B= 1.02 

, BAULCH 81 101 


last reax 
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TABLE 8. 

REACTION 

SPECIES 

SPECIES 

SPECIES 


Third Body Reaction Rate Ratio 


H + Cl Cl * Cl 


Ar 1 

HC1 1 

C1 2 1 

Cl 1 


1 

1 

5 


SPECIES 


1 
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